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10 OPTION BASE 1 :: DIM A$(24,5),BIN$(16),HEX$(16):: CALL CHARSET :: ON WARNING 
NEXT :: ON BREAK NEXT 
20 @$,C$=RPT$("0201",15)&"16" :: F$="£ PROCEDO ? (S:N)" :: RESTORE 1150 
30 FOR I=1 TO 16 :: READ BIN$(I),HEX$(I):: NEXT I 
40 GOTO 1070 
50 DISPLAY AT(10,1)ERASE ALL: "NUMERO PAGINA ?(1-5)" 1: ACCEPT AT(10,25)VALIDATE( 
"12345")SIZE(1)BEEP:5C$ :: IF SC$="" THEN 50 ELSE P=VAL(SC$) 
50 DISPLAY AT(10,1): "VUOI CANCELLARLA ? (S:N) S" :: ACCEPT AT(10,26)VALIDATE(*SN 
")SIZE(-1)BEEP:SC$ :: IF SC$="N" THEN 80 
70 FOR R=1 TO 24 :: A$(R,P)=RPT$(" ",32):: NEXT R 
80 FOR R=1 TO 24 :: CALL P(R,P,A$(,)):: ENT R 
90 R=1 :: C=3 :: CALL SPRITE(£1,62,2,1 
100 RR=R*8-7 :: CC=C#8-7 :: CALL coone RR, CC) TEXT EDITOR 
110 CALL KEY(5,k,S):: IF S=0 THEN 110 
120 CALL SOUND(-30,3000,15) 
130 IF K>31 THEN A$(R,P)=SEG$(A$(R,P),1,C-1)&CHR$(K)&SEG$(A$(R,P),C+1,32-C):: CA 
LL HCHARCR,C,K):: K=9 
140 IF K=9 THEN IF C<30 THEN C=C+1 :: GOTO 100 ELSE IF R<24 THEN C=3 1: R=R+1 :: 
GOTO 100 ELSE GOTO 100 
150 IF K=13 THEN IF R<24 THEN R=R+1 :: C=3 1: GOTO 100 ELSE GOTO 100 
160 IF K=8 THEN IF C>3 THEN C=C-1 :: GOTO 100 ELSE IF R>1 THEN R=R-1 1: C=30 ::: 
GOTO 100 ELSE GOTO 100 
170 IF K=10 OR K=11 THEN R=R-(K=11)#(R>1)+(K=10)#(R<24):: GOTO 100 
180 IF K=7 THEN A$(R,P)=SEG$(A$(R,P),1,C-1)&RPT$(" ",31-C)&SEGS(A$(R,P),31,2):: 
CALL HCHAR(R,C,32,31-C):: GOTO 100 
190 IF K=4 THEN A$(R,P)=SEG$(A$(R,P),1,C-1)&" "&SEG$(A$(R,P),C,30-C)&SEG$(A$(R,P 
),31,2):: CALL P(R,P,A$(,)):: GOTO 100 
200 IF K=3 THEN A$(R,P)=SEG$(A$(R,P),1,C-1)&SEG$(A$(R,P),C+1,30-C)&"&SEG$(A$ (R 
,P),31,2): CALL P(R,P,A$(,)):: GOTO 100 
210 IF K=14 THEN CALL DELSPRITE(£1):: GOTO 90 
220 IF K=12 THEN CALL DELSPRITE(£1):: GOTO 110 
230 IF K=i5 THEN CALL DELSPRITE(£1):: GOTO 1070 
240 IF K=2 THEN CALL DELSPRITE(£1):: GOTO 50 
250 GOTO 100 
260 DISPLAY AT(1,1)ERASE ALL: "SEZIONE CARATTERI" :: DISPLAY AT(11,1):"VUOI VEDER 
E L'ATTUALE SET ? (S:N)" 
270 CALL GET("SN",K):: IF K=78 THEN 360 
280 CALL HCHAR(4,1,32,640):: DISPLAY AT(3,1):"NCH CHAR PATTERN 16 CH" 1: D 
ISPLAY AT(24,1):"FCTN(7)=SALTA FCTN(8)=REINIT" 
290 FOR I=1 TO 5 :: FOR J=i TO 20 :: R=20+I+J+11 
300 DISPLAY AT(J+3,1):USING 1140:R :: CALL CHARPAT(R,SC$):: DISPLAY AT(J+3,6):SC 
$ :: DISPLAY AT(J+3,28):CHR$(R) 
310 NEXT J :: CALL GET(CHR$(1)&CHR$(6)&CHR$(13),K) 
320 IF K=6 THEN 280 ELSE IF K=1 THEN 360 
330 NEXT I :: FOR I=1 TO 12 
340 DISPLAY AT(I+3,1):USING 1140:I+131 :: CALL CHARPAT(I+131,SC$):: DISPLAY ATCI 
+3,6):5C$ :: DISPLAY AT(I+3,28):CHR$(I+131) 
350 NEXT I :: CALL GET(CHR$(1)&CHR$(6)&CHR$(13),K)s: IF K=6 THEN 280 
360 DISPLAY AT(1,1)ERASE ALL: "SEZIONE CARATTERI" :: DISPLAY AT(11,1): "VUOI DEFIN 
IRE UN NUOVO SET DI CARATTERI ? (S:N)" 
370 CALL GETC"SN",K):: IF K=78 THEN 1070 
375 CALL C(@$) 
380 CALL CHARPAT(39,5C39$,40,5C40$):: CALL CHAR(39, "FF818181818181FFFF8191818181 
B1FF"):: CALL COLOR(1,2,1,2,2,5) 
390 CALL HCHAR(11,1,32,54):: DISPLAY AT(16,1):"MENU 1":"":"0 = OFF":"1 = ON" 
:"F[41= REINIT": "F[6]= PROC'D" 
400 DISPLAY AT(23,1):"I CARATTERI 39 E 40 NON SONOVISUALIZZABILI" 
410 DISPLAY AT(3,10): "NUMERO CARATTERE :" :: DISPLAY AT(6,10): "STRINGA DEFINIT 
:" s: DISPLAY AT(9,10):"SAGOMA REALE :" 
420 FOR R=3 TO 10 :: CALL HCHAR(R,3,39,8):: NEXT R 
430 ACCEPT AT(4,10)VALIDATE (DIGIT) SIZE(3) BEEP:N :: IF N<32 OR N>143 THEN 430 
440 ACCEPT AT(7,10)VALIDATE("0123456789ABCDEF")SIZE(16):5C$ :: IF SC$="" THEN CA 
LL CHARPATiN,5C$) ELSE IF 5C$="0" THEN SC$=RPT$("0",16) 
450 CALL SCRIVI(3,3,5C$,BIN$()) 
460 CALL SPRITE(£1,42,2,1,1):: R,C=3 
470 RR=R#*8-7 :: CC=C#8-7 :: CALL LOCATE(£1,RR,CC) 
480 CALL KEY(5,K,5):: IF S=0 THEN 480 
490 IF K=48 OR K=49 THEN CALL HCHAR(R,C,K-9):: K=9 
500 IF K=9 THEN IF C<10 THEN C=C+1 :: GOTO 470 ELSE IF R<10 THEN C=3 1: R=R+1 :: 


GOTO 470 ELSE GOTO 470 

510 R=R-(K=11)#*(R>3)+(K=10)#(R<10)s: C=C-(K=8)#(C>3) 

520 IF K=2 THEN 420 

530 IF K<>12 THEN 470 

3540 DISPLAY AT(12,10): "ATTENDERE" :: CALL LEGGI(3,3,5SC$,HEX$()):: DISPLAY AT(7,1 
0)SIZE(16):5C$ 

350 IF N=39 THEN SC39$=SC$ ELSE IF N=40 THEN SC40$=5C$ ELSE CALL CHAR(N,SC$):: S 
C$="" :: DISPLAY AT(10, 10) :CHR$ (N) 

360 DISPLAY AT(12,10): "ANCORA ? [S:N]" :: CALL GET("SN",K):: IF Kk=83 THEN CALL H 
CHAR(10,12,32):: CALL HCHAR(7,12,32,16):: CALL HCHAR(12,10,32,17):: GOTO 420 

570 CALL CLEAR :: CALL CHAR(39, SC39$&SC40$):: CALL DELSPRITE(£1):: CALL C(C$):: 
GOTO 1070 

380 DISPLAY AT(9,1)ERASE ALL: "SEZIONE COLORE" :: DISPLAY AT(11,1):F$ :: CALL GET 
("SN",K):: IF Kk=78 THEN 1070 ELSE CALL HCHAR(11,1,32,32):: RESTORE 1190 

590 FOR R=1 TO ié STEP 2:: READ SC$,B$ 

600 PRINT STR$(R);TAB(4);SC$;TAB(14);R+1;TAB(18);B$ 

610 NEXT R :: DISPLAY AT(15,1):"SET COLORI DISPONIBILE" 

620 DISPLAY AT(3,1):"VUOI DEFINIRE UN UNICO COLO-RE DI FORE/BACKGROUND ?(S:N)" : 
*» CALL GET("SN",K):: IF Kk=83 THEN 690 

6350 DISPLAY AT(3,1): "IMPOSTA IL SOLO CODICE CORRISPONDENTE PER OGNI SET":"":"I 
SET VANNO DA 0 A 14":"SET DA AU FOREG BACKG" 

640 RESTORE 1170 :: C$="" :: FOR R=0 TO 14 :: READ SC$,B$ 

650 DISPLAY AT(9,1):USING 1140:R :: DISPLAY AT(9,5):USING 1140:5C$ :: DISPLAY AT 
(9,9) : USING 1140:B$ 

660 ACCEPT AT(9,13)VALIDATE (DIGIT)SIZE (2) :SC$ :: ACCEPT AT(9,19)VALIDATE(DIGIT)S 
IZE (2) :B$ :: CALL CHECK(SC$,B$):: C$=C$&5C$&B$ 

670 NEXT R :: CALL HCHAR(3,1,32,320):: DISPLAY AT(3, 1): "IMPOSTA ORA IL COLORE SF 
ONDO” :: ACCEPT AT(5,1)VALIDATE(DIGIT)SIZE (2) :B$ 

680 CALL CHECK(SC$,B$):: C$=C$&B$ :: CALL C(C$):: GOTO 1070 

690 DISPLAY AT(3,1):"IMPOSTA IL SOLO CODICE CORRISPONDENTE ":"":"FOREG :":"": "BA 

CKG 1" 

700 ACCEPT AT(6,14)VALIDATE (DIGIT)SIZE(2):SC$ :: ACCEPT AT(8,14)VALIDATE (DIGIT)S 
IZE(2):B$ :: CALL CHECK(SC$,B$):: SC$=SC$&"O1" 

710 C$="" :: FOR R=1 TO 15 :: C$=C$&SC$ :: NEXT R_:: C$=C$&B$ :: CALL C(C$):: GO 

TO 1070 

720 DISPLAY AT(20,1)ERASE ALL: "SEZIONE INPUT NASTRO" :: PRINT :RPT$("£",28) 

730 PRINT :F$ :: CALL GET("SN",K):: IF K=78 THEN 1070 

740 OPEN £1:"CS1", INTERNAL, INPUT ,FIXED 128 :: INPUT £1:11$,12$,I35$,14$ :: CLOSE 
£1 

750 PRINT :"£ INFORMAZIONI :":"":"! "s11$:"! "sI2$1"! "sI35$:"! "s14$:"":F$ :: CA 
LL GET("SN",K):: IF K=78 THEN 1070 

750 OPEN £1:"CS1", SEQUENTIAL, INTERNAL, INPUT ,FIXED 192 

770 PRINT :"£ COLORI & CARATTERI ? (S:N)" :: CALL GET("SN",K):: IF K=78 THEN 820 
780 PRINT " ili RECORD :" :: N=1770 

790 FOR I=1 TO 10 :: DISPLAY AT(235,14):N ss N=N+1 :: FOR J=it TO 10 s: INPUT £1:5 
C$,:: CALL CHARC(I-1)#11+J+31,5C$):: NEXT J 

800 INPUT £1:5C$ :: CALL CHAR((I-1)*11+42,SC$):: NEXT I 

810 DISPLAY AT(23,14):N :: INPUT £1:5C$,C$ :: CALL CHAR(143,5C$):: CALL C(C$) 
820 PRINT :"£ TESTO ? (S:N)" 1: CALL GET("SN",K):: IF K=78 THEN 880 

850 FOR P=1 TO 5 :: PRINT :" PAGINA"5P5" ? (SiN)" 1: CALL GET("SN",K):: IF K=78 
THEN 870 

840 PRINT :" 05 RECORD :" :: N=1 


850 FOR I=1 TO 4 :: DISPLAY AT(23,14):N :: N=N+1 :: FOR J=1 TO 4 :: INPUT £1:A$( 
{(I-1)#5+J,P),:: NEXT Jos: INPUT £1:A$(I*5,P):: NEXT I 

860 DISPLAY AT(23,14):N :: FOR J=21 TO 23 :: INPUT £1:A$(J,P),:: NEXT J_:: INPUT 
£1:A$(24,P) 

870 NEXT P 


880 CLOSE £1 :: CALL CLEAR =: GOTO 1070 

890 DISPLAY AT(20, 1)ERASE ALL: "SEZIONE OUTPUT NASTRO" :: PRINT :RPT$("£",28) 

900 PRINT :F$ :: CALL GET("SN",K):: IF k=78 THEN 1070 

910 PRINT :"£ INFORMAZIONI :":"" :: INPUT I1$ :: INPUT I2$ :: INPUT I3$ :: INPUT 
14$ :: PRINT :F$ :: CALL GET("SN",K):: IF K=78 THEN 1070 

920 OPEN £1:"CS1", SEQUENTIAL, INTERNAL, OUTPUT, FIXED 128 :: PRINT £1:I1$,12$,I3$,I 

4$ :: CLOSE £I 

930 OPEN £1:"CS1",SEGUENTIAL, INTERNAL, OUTPUT,FIXED 192 

940 PRINT :"£ COLORI & CARATTERI ? (S:N)" 

950 CALL GET("SN",k):: IF k=78 THEN 1000 

960 PRINT " 11 RECORD :" :: N=1 


970 FOR I=i TO 10 :: DISPLAY AT(23,14):N :: N=N+1 1: FOR J=1 TO 10 :: CALL CHARP 
AT((I-1)#11+J+31,SC$):: PRINT £1:5C$,:: NEXT J 

980 CALL CHARPAT((I-1)*11+42,5C$):: PRINT £1:SC$ :: NEXT I 

990 DISPLAY AT(23,14):N :: CALL CHARPAT(143,SC$):: PRINT £1:5C$,C$ 

1000 PRINT :"£ TESTO ? (S:N)" :: CALL GET("SN",K):: IF K=78 THEN 1060 

1010 FOR P=1 TO 5 :: PRINT :" PAGINA"5P3" ? (S:N)" 1: CALL GETC"SN",K)s: IF k=7 
8 THEN 1050 

1020 PRINT :" 05 RECORD :" :: N=1 

1030 FOR I=1 TO 4 :: DISPLAY AT(23,14):N :: N=N+1 :: FOR J=1 TO 4 :: PRINT £1:A$ 
((I-1)#5+J,P),:: NEXT J :: PRINT £1:A$(I#5,P)s: NEXT I 

1040 DISPLAY AT(23,14):N :: FOR J=21 TO 23 :: PRINT £1:A$(J,P),:: NEXT J :: PRIN 
T £1:A$(24,P) 

1050 NEXT P 

1060 CLOSE £1 :: CALL CLEAR :: GOTO 1070 

1070 DISPLAY AT(1,1)ERASE ALL: "MARANGONI SOFWARE PRESENTS: " 

1080 DISPLAY AT(5,3):"TEXT EDITOR 28*24#5" :: CALL HCHAR(4,1,35,32):: CALL HCH 
AR(6,1,35,32) 

1090 DISPLAY AT(10,1):"1 REDAZIONE": :"2 INPUT NASTRO": :"3 OUTPUT NASTRO": :"4 
DEF CARATTERI": :"5 DEF COLORI": :"6 END" 

1100 DISPLAY AT(24,1):"SCEGLI" :: ACCEPT AT(24,10)VALIDATE("123456")SIZE(1):SC$ 
1: SC=VAL(SC$) 

1110 ON SC GOTO 50,720, 890, 260,580, 1120 

1120 DISPLAY AT(12,8)ERASE ALL BEEP: "ARRIVEDERCI" 

1130 END 

1140 IMAGE £££ 

1150 DATA 0000,0,0001,1,0010,2,0011,3,0100,4,0101,5,0110,6,0111,7,1000,8 

1160 DATA 1001,9,1010,A,1011,B,1100,C,1101,D,1110,E,1111,F 

1170 DATA 30,31,32,39,40,47,48,55,56,63,64,71,72,79,80,97 

1180 DATA 88,95,96,103,104,111,112,119,120,127,128,135,136,143 

1190 DATA TRASPARENT, NERO, VERDE, VERDE C,BLU S,BLU C,ROSSO S,CIANO, ROSSO, ROSSO C, 
GIALLO S,GIALLO C, VERDE S,MAGENTA, GRIGIO, EBANO 

1200 SUB GET(A$,K):: CALL SOUND(100,1047,6) 

1210 CALL KEY(0,K,5):: IF S=0 THEN 1210 ELSE IF POS(A$,CHR$(K),1)=0 THEN 1210 
1211 IF K<32 THEN SUBEXIT 

1220 CALL SPRITE(£2,K,2,177,241):: CALL MAGNIFY(2):: FOR T=1 TO 100 s: NEXT T :: 
CALL DELSPRITE(£2):: CALL MAGNIFY(1) 

1230 SUBEND 

1240 SUB C(A$) 

1250 FOR I=1 TO 57 STEP 4 :: F=VAL(SEG$(A$,I,2)):: B=VAL(SEG$(A$,1+2,2)) 

1260 CALL COLORCINT((I-1)/4),F,B):: NEXT I :: CALL SCREEN(VAL(5EG$(A$,61,2))) 
1270 SUBEND 

1280 SUB P(R,P,A$(,)) 

1290 DISPLAY AT(R, 1) SIZE(28):SEG$(A$(R,P),3,28):: CALL HCHAR(R,1,ASC(SEG$(A$(R,P 
Vie 

1300 CALL HCHAR(R,2,ASC(SEG$(A$(R,P),2,1))):: CALL HCHAR(R,31,ASC(SEG$(A$(R,P),3 
1,1))):: CALL HCHAR(R,32,ASC(SEG$(A$(R,P),32,1))) 

1310 SUBEND 

1320 SUB SCRIVI(R,C,A$,BIN$()):: A=i :: FOR Ri=R TO R+7 :: FOR C1=C TO C+7 STEP 
4 :: B$=SEG$(A$,A,1) 

1330 IF ASC(B$)<58 THEN K=VAL(B$)ELSE K=ASC(B$)-55 

1340 CALL ESA(R1,C1,BIN$(K+1)):: A=A+1 1: NEXT C1 :: NEXT RI 

1350 SUBEND 

1360 SUB ESA(R,C,A$):: FOR I=i TO 4 :: CALL HCHAR(R,C-1+I,ASC(SEG$(A$,I,1))-9):: 
NEXT I 

1370 SUBEND 

1380 SUB LEGGI (R,C,A1$,BIN$()):: Ai$="" :: FOR Ri=R TO R+7 :: FOR Ci=C TO C+7 ST 

EP 4 :: A$="" :: FOR C2=C1 TO C1+3 

1390 CALL GCHAR(R1,C2,C0D):: A$=A$&CHR$(COD+9):: NEXT C2 

1400 CALL B(A$,N):: A1$=A1$&BIN$(N+1):: NEXT C1 :: NEXT Ri :: SUBEND 

1410 SUB B(A$,N):: N=0 :: FOR I=3 TO 0 STEP -1 s: N=N+VAL(SEG$(A$,4-1,1))*2%I s: 
NEXT I :: SUBEND 

1420 SUB CHECK (A$,B$) 

1430 IF A$="" THEN A$="01" ELSE IF VAL(A$)<1 OR VAL(A$)>16 THEN A$="01" ELSE IF 

LEN(A$)=1 THEN A$="0"&A%$ 

1440 IF B$="" THEN B$="01" ELSE IF VAL(B$)<1 OR VAL(B$)>16 THEN B$="01" ELSE IF 

LEN(B$)=1 THEN B$="0"&B$ 

1450 SUBEND 


FOOD 3303316 

30010 '* Routine grafiche *# 

30020 !* by__Randone Carlo * 

Ki0/tk(0M8E 2727277777775 7$$.37.5.5. 

30040“ nOHLORDED FROM III TIG9TUCIT 

30050 ! 

30060 SUB SAVEPICI 

30070 PRINT : "Inserire la cassetta su cui" :: PRINT " registrare il disegno." :: 
PRINT "Prendere nota della posi-" :: PRINT " zione del nastro !!": 
30080 OPEN £1:"CS1", INTERNAL, OUTPUT,FIXED{192) 

30090 PRINT :: SUBEND 

30100 SUB SAVEPIC2 

30110 I=0 :: N=0 :: DIM NP(L11) AA$(111) 

30120 FOR R=1 TO 24 :: FOR C=1 TO 32 

30130 CALL GCHAR(R,C,CAR):: IF CAR=32 THEN 30160 

30140 N=N+1 :: CALL CHARPAT(CAR,AAS(N)) 

30150 NP(N)=(R-1)#32+C 

30160 NEXT C :: NEXT R :: PRINT £1:N 

30170 FOR T=1 TON 

30180 I=I+1 :: IF I=7 THEN I=0 :: GOTO 30210 

30190 PRINT £1:NP(T),AA$(T), 

30200 GOTO 30220 

30210 PRINT £1:NP(T) ,AA$(T) 

30220 NEXT T 

30230 CALL SOUND(400,500,1):: CALL SOUND(6500, 900,1) 

30240 SUBEND 

30250 SUB CIRCLE (R_1,C_0,R) 

30260 k=.5 1: RI=INT(R_1+K)ss CO=INT(C_0+K):: IF R{=0 THEN SUBEXIT 

30270 DI=1/R :: D=2#PI s: FOR A=0 TO DSSTEP DI :: CALL PIXEL (RI+R#*COS(A),CO+R#SI 

NCA)):: NEXT A 

30280 SUBEND 

30290 SUB TRAIL(Y_1,X _1,Y 2,X_2) 

30300 A=1 13 K=.5 1: YI=INT(Y_ 1+K) sr X1=INT(X_1+K) 33 Y2=INT(Y_2+K)ss XZ2=INT(X_2+ 

K) 

30310 IF X1=X2 AND Y1=Y2 THEN 30440 

303520 IF Y1=Y2 THEN 30460 

303350 IF X1=X2 THEN 30490 

30340 M=(Y2-Y1)/(X2-X1)s: N=Y1-MxX1 

30350 PX=ABS(X2-X1) 

30360 PY=ABS(Y2-Y1) 

30370 IF PX>=PY THEN 30410 

30380 IF Y2<Y1 THEN A=-1 

30390 FOR Y=Y1 TO Y2 STEP A :: X=(Y-N)/M :: CALL PIXEL(Y,X):: NEXT Y 
30400 SUBEXIT 

30410 IF X2<X1 THEN A=-1 

30420 FOR X=X1 TO X2 STEP A :3: Y=M*X+N :: CALL PIXEL(Y,X):s NEXT X 

30430 SUBEXIT 

30440 CALL PIXEL(Y1,X1) 

30450 SUBEXIT 

30460 IF X2<X1 THEN A=-1 

30470 FOR X=X1 TO X2 STEP A :=: CALL PIXEL(Y1,X)s: NEXT X 

30480 SUBEXIT 

30490 IF Y2XYi THEN A=-1 

30500 FOR Y=Y1 TO Y2 STEP A :=: CALL PIXEL (Y,X1):: NEXT Y 

30510 SUBEND 

30520 SUB PIXEL(R_I,C_0) 

30530 IF V<>0 THEN 30550 

30540 DIM Y(22),W$(15,4):: GOTO 30590 

30550 R=INT(R_I+KC):: C=INT(C_0+KC):: IF R<1 OR R>192 OR C<1 OR C>256 THEN 30640 
30560 A=INT(R/6G+H):: B=INT(C/G+H):: Z=C/0+H :: E=N#R-L#*A+P+INT(Z/B):: CALL GCHAR 
(A,B,k):: CALL CHARPAT(K,A$):: IF K=I THEN K,D=D+J 


30570 IF D>143 THEN 30640 

30580 CALL CHAR(K,SEG$(A$,J,E-J)&W$(Y(ASC(SEG$(A$,E,J))-M),C-Q#XINT(Z)+0)&SEG$(A$ 
sE+J,L)):: CALL HCHARCA,B,K):: SUBEXIT 

30590 FOR I=0 TO 9 :=: Y(I)=I :: NEXT I:: FOR I=17 TO 22 :: Y(I)=I-7 :: NEXT I: 
:» RESTORE 30620 :: D=32 :: Val os: 0=4 :: P=14 ss: KC=.5 

30600 FOR I=1 TO 4 TO 15 :: READ B$ :: W$(J,I)=B$ :: NEXT J_:: NEXT I 
t: 6=8:: H=.,9:: st: L=16 1: M=48:: N=2 

30610 GOTO 30550 


1 


30620 DATA 8,9,A,B,C,D,E,F,8,9,A,B,C,D,E,F,4,5,6,7,4,5,6,7,C,D,E,F,C,D,E,F 
30630 DATA 2,3,2,3,6,7,6,7,A,B,A,B,E,F,E,F,1,1,3,3,5,5,7,7,9,9,B,B.D,D,F,F 
30640 CALL SOUND(-50,860,0):: SUBEND 


30650 SUB TRIANG(R1,C1,R2,C2,R3,C3) 

30660 CALL TRAIL(R1,C1,R2,C2):: CALL TRAIL{R2,C2,R3,C3)s: CALL TRAIL (R3,C3,R1,C1 
):: SUBEND 

30670 SUB RETTANGI (R_V,C_V.,B,H,Al) 

30680 K=.5 :: RV=INT(R_V+K)ss CV=INT(C_V+K) 

30690 IF A1<=90 THEN TVi=90-A1 ELSE TV1=450-A1 

30700 TV3=TV1+270 :: TVI=TV1*PI/180 :: TV3=TV3#PI/180 

30710 C1=CV+B#*SIN(TV1):: R1=RV+B#*COS(TV1):: C3=CV+H*SIN(TV3):: R3=RV+H#COS(TV3) 
30720 C2=C3+B#SIN(TV1):: R2=R3+B#COS(TV1) 

30730 CALL TRAIL (RV,CV,R1,C1):: CALL TRAIL(R1,C1,R2,C2):: CALL TRAIL(R2,C2,R3,C3 
):: CALL TRAIL(R3,C3,RV,CV):: SUBEND 

30740 SUB RETTANG2(R_0,C_0,B,H,A3) 

30750 A2=A3#*PI/180 :: K=.5 1: RO=INT(R_0+K):: CO=INT(C_0+K):: L=SQR(B*B+H*H)/2 : 
: K2=A2+ATN(H/B) 

30760 TOO=PI/2*3-K2 :: RO=RO+L#*COS(TD0):: C0=C0+L*SIN(T00):: CALL RETTANGI (RO,C0 
sB,H,A3):: SUBEND 

30770 SUB MGLOBAL (C1,C2,C3,C4,C5) 

30780 IF VARIA<>0 THEN 30800 

30790 DIM A(32):: VARIA=1 

30800 CALL SOUND (200, 900,0) 

30810 CALL KEY(0,K,S):: IF S=0 THEN 30810 

30820 CALL SOUND (200, 1000,0):: IF K=C1 THEN 30880 

30830 IF k=C2 THEN 30910 

30840 IF K=C3 THEN 30940 

350850 IF k=C4 THEN 30970 

30860 IF k=C5 THEN CALL SOUND (200, 800,0):: SUBEXIT 

30870 GOTO 30810 

30880 FOR C=1 TO 32 :: CALL GCHAR(1,C,A(C)):: NEXT C 

30890 FOR R=2 TO 24 :: FOR C=1 TO 32 :: CALL GCHAR(R,C,CAR):: CALL HCEHAR(R-1,C,C 
AR) :: NEXT C :: NEXT R 

30900 FOR C=1 TO 32 :: CALL HCHAR(24,C,A(C)):: NEXT C:: GOTO 30800 

30910 FOR C=1 TO 32 :: CALL GCHAR(24,C,A(C)):: NEXT C 

30920 FOR R=23 TO 1 STEP 1:: FOR C=1 TO 32 :: CALL GCHARCGR,C,CAR):: CALL HCHAR 
{R+1,C,CAR):: NEXT C :: NEXT R 

30930 FOR C=1 TO 32 :: CALL HCHAR(1,C,A(C)):: NEXT C :: GOTO 30800 

30940 FOR R=1i TO 24 :: CALL GCHARR,1,A(R)):: NEXT R 

30950 FOR C=2 TO 32:: FOR R=1 TO 24 :: CALL GCHARGR,C,CAR):: CALL HCHARIR,C-1,C 
AR) :: NEXT R:: NEXT C 

30960 FOR R=i TO 24 :: CALL HCHARR,32,A(R)):: NEXT R:: GOTO 30800 

30970 FOR R=1 TO 24 :: CALL GCHAR(R,32,A(R)):: NEXT R 

30980 FOR C=31 TO 1 STEP 1 ::: FOR R=1 TO 24 :: CALL GCHARIR,C,CAR):: CALL HCHAR 
{R,C+1,CAR):: NEXT R_:: NEXT C 

30990 FOR R=1 TO 24 :: CALL HCHARCR,1,A(R)):: NEXT R:: GOTO 30800 :: SUBEND 
31000 SUB CIRCLE3(Y_1,X_1,Y _ 2,X_2,Y _3,X_3) 

ZIOLO K=.5 ss YI=INT(Y_1+K)s2 XA=INT(X_1+K)s2 Y2=INT{Y_2+K)ss X2=INT(X_2+K)ss Y3 
=INT(Y_3+K)ss: X3=INT(X_3+K):: GOTO 31060 

SIOZO T1=-(X1*XX1+Y1*Y1)ss T2=-(X2%*X2+Y2%Y2)s: T3=-(X3XX3+Y3#Y3)t: DE=X1*(Y2-Y3)- 
Y1*(X2-X3)+X2XY3-Y2#X3 

310350 DA=T1*(Y2-Y3)-Y1*(T2-T3)+T2#*Y3-T3#Y2 1: DB=X1#*(T2-T3)-T1#*(X2-X3)+X2#T3-X3% 
T2 

31040 DC=X1%*(Y2*T3-Y3*T2)-Y1#(X2*T3-X3*T2)+T1*(X2*Y3-X3#Y2):: CALL PIXEL (Y1,X1): 
» CALL PIXEL {(Y2,X2):: CALL PIXEL(Y3,X3) 

31050 A=DA/DE :: B=DB/DE :: C=DC/DE :: XC=-A/2 31: YC=-B/2 :: R=SQR(XC#XC+YCXYC-C 
):: CALL CIRCLE(YC,XC,R):: SUBEXIT 

31060 IF (X1=X2 AND X2=X3)OR(Y1=Y2 AND Y2=Y3)THEN SUBEXIT 

31070 GOTO 31020 :: SUBEND 


10 CALL CLEAR :: COL=2 :: SCH=2 

11 DISPLAY AT(1,1):"---------------------------- i 

20 DISPLAY AT(2,1):" LETTURA DISEGNI DA NASTRO" 

30 DISPLAY AT(3,1)1"---------------------------- da 

40 DISPLAY AT(5,1):"I disegni dovresti averli" :: DISPLAY AT(6,2): "memorizzati s 
u questo stes-" 

41 DISPLAY AT(7,2):"so nastro, dopo il presente" :: DISPLAY AT(8,2): "programma p 
rincipale." 

60 DISPLAY AT(10,1):"A DISEGNO TERMINATO, PREMI :" :: DISPLAY AT(12,1):" C per c 
ambiarne il colore;" 

70 DISPLAY AT(13,1):" S per cambiare il colore" :: DISPLAY AT(14,1):" dello sf 
ondo;" 

80 DISPLAY AT(15,1):" UN ALTRO TASTO per finire." 

90 DISPLAY AT(17,1):"COD. COLORE SFONDO :" :: ACCEPT AT(17,21)BEEP:CS 

100 DISPLAY AT(19,1): "COLORE DISEGNO :" 

110 DISPLAY AT(21,1):" COLORE UNICO ‘U) O COLORATO" 

120 DISPLAY AT(22,1):" CON VARIE TINTE (V) ?" :: ACCEPT AT(22,24)SIZE(1)VALIDATE 
("UV") BEEP: Z%$ 

130 IF, Z$="V" THEN 150 

140 DISPLAY AT(24,1):"COD. COLORE DISEGNO :" :: ACCEPT AT(24, 22) BEEP:CD 

150 PRINT :: OPEN £1:"CS1", INTERNAL, INPUT ,FIXED(192) 

160 CALL CLEAR :: CALL SCREEN(CS):: IF Z$="V" THEN 170 ELSE 180 

170 FOR I=1 TO 14 =»: CALL COLOR(I,I+2,1):: NEXT I:: GOTO 190 

180 FOR I=li TO 14 :: CALL COLOR(I,CD,1):: NEXT I 

190 I=0 :: H=32 :: INPUT £1:N 

200 FOR Y=1 TO N:: I=I+1 :: IF I=7 THEN I=0:: GOTO 230 

210 INPUT £1:NP1,A6$, 

220 GOTO 240 

230 INPUT £1:NP1,A$ 

240 H=Ht1 :: CALL CHAR(H,A$):: R=INT(NP1/32+.97):: CALL HCHARGR,NPI-(R-1)#32,H): 
s NEXT Y 

250 CALL SOUND(400,500,1):: CALL SOUND(6400,900, 1) 

260 CALL KEY(0,K,5):: IF S=0 THEN 260 

270 IF CHR$(K)="C" THEN 380 

280 IF CHR${(K)="S" THEN VRR=1 :: GOTO 450 

290 CALL CLEAR :: CALL CHARSET :: FOR I=i TO 14 :: CALL COLOR(I,2,1):: NEXT It: 
CALL SCREEN(8):: CLOSE £i 

300 CALL CLEAR :: PRINT "1-USCIRE DAL PROGRAMMA" 

310 PRINT :"2-LEGGERE UN ALTRO DISEGNO" 

320 PRINT :o ss: 

3350 CALL KEY(0,K,5):: IF S=0 THEN 330 

340 IF CHR$(K)="1" THEN 370 

350 IF CHR${(K)="2" THEN 10 

360 GOTO 3350 

370 CALL CLEAR :: END 

380 COL=COL+1 :: I=0 ss: IF COL>16 THEN COL=2 

390 I=I+1 :: CALL COLOR(I,COL,1) 

400 CALL KEY(0,K,S):: IF S=0 THEN 400 

410 IF CHR$(K)="C" THEN 440 

420 IF CHR$(K)="S" THEN VRR=2 :: GOTO 450 

430 GOTO 290 

440 FOR TYY=1 TO 20 :: NEXT TYY :s IF I=14 THEN 260 ELSE 390 

450 SCH=SCH+1 :: IF SCH>16 THEN SCH=2 

460 CALL SCREEN(SCH):: FOR TYY=1 TO 20 :: NEXT TYY 

470 ON VRR GOTO 260,400 
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HM Un Gran Premio 
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LArAAAZAAIATATITTTTIZIZI AI 


La sfida di una Gara Automobilistica..... 


100 CALL CLEAR 

105 REM 

110 REM FRANCOMPUTER CLUB 

115 REM 

120 PRINT "SORPASSA TUTTI !'! MA ATTENTOA NON TOCCARE IL CORDOLO. —BUONA FORTUNA 
! USA JOYSTICK 2" 

130 FOR @=1 TO 1500 :: NEXT @ » 

140 CALL CLEAR adi. 

150 DIM V(4),C0L (4) 

160 CALL CHAR(120, "OFOFOFOFOFOFOFOF") 

170 CALL CHAR(121, "FOFOFOFOFOFOFOFO") 

180 CALL CHAR(128, "183C3EFFFFFFFE1C") 

190 CALL CHAR(136,"1F01677F6FOF1F1F1F1F1FCFFFFFDF 1FF880E6FEF 6FOF8F8F8F8F8F3FFFFF 

BF8") 

200 CALL CHAR(140, "C26C3D1D1FA743173F0F3C4E9324080880454EDAFOFCFBFOEAF4B8BCDE69 1 

820") 

210 CALL COLOR(12,2,11) 

220 CALL COLOR(13,4,1) 

230 CALL CLEAR :: CALL SCREEN(15):: CALL MAGNIFY(3) 

240 CALL VCHAR(1,8,120,24):: CALL VCHAR(1,25,121,24) 

250 CALL VCHAR(14,2,128,5):: CALL VCHAR(12,3,128,8) 

260 CALL VCHAR(2,5,128,5):: CALL VCHAR(16,5,128,4) 

270 CALL VCHAR(2,6,129,4):: CALL VCHAR(11,6,128,3) 

280 CALL VCHAR(17,6,128,5):: CALL VCHAR(9,7,128,6) 

290 CALL VCHAR(20,7,128,4):: CALL VCHAR(5,26,128,3) 

300 CALL VCHAR(4,27,128,6):: CALL VCHAR(16,27,128,7) 

310 CALL VCHAR(3,28,128,6):: CALL VCHAR(17,28,128,5) 

320 CALL VCHAR(4,29,128,3):: CALL VCHAR(5,30,128,3) 

330 CALL VCHAR(3,31,128,6):: P=0 

340 DATA 5,14,13,10,6 

350 RANDOMIZE 

360 FOR J=0 TO 4 :: V(J)=INT(RND#*30)+10 :: READ COL(J):: NEXT J 

370 CALL SPRITE(£1,136,2,177,121) 

380 FOR J=0 TO 4 :: CALL SPRITE(£(J+2),136,C0L(J),1,24#J+73,V(3),0):: NEXT J 

390 CALL JOYST(2,X,Y):: CALL MOTION(£1,-Y#3,X#5) 

400 P=P+5 1: CALL POSITION(£1,A,B):: IF B<65 OR B>185 THEN 410 ELSE CALL COINC(A 

LL,C):: IF C<>-1 THEN 390 

410 CALL MOTION(£1,0,0):: CALL PATTERN(£1,140):: CALL COLOR(£1,7):: CALL SOUND(2 

000,-7,3) 

420 FOR A=1 TO 500 :: NEXT A 

430 CALL DELSPRITE(ALL):: CALL CLEAR 

440 PRINT "PUNTEGGIO ACQUISITO :",,TAB(10);P 

450 PRINT ,, "GIOCHI ANCORA ? (S/N)" 

460 CALL KEY(0,K,5) 

470 IF S=0 THEN 460 

480 IF K=83 OR K=115 THEN RESTORE :: GOTO 230 

490 CALL CLEAR :: END 


5 REM BY RANDONE CARLO 

6 REM 

10 GOSUB 20 :: GOSUB 850 :: GOSUB 20 :: GOSUB 1040 :: GOSUB 1170 :: GOSUB 3030 : 
» GOSUB 1170 :: GOSUB 3250 :: END 

20 K=64 1: K1=69 1: K2=58 


30 CALL T(K,1047,20,659,12,262,24) 540 CALL S(K1,494,8,44000,30) 

40 CALL S(K,1047,20,659,12) 650 CALL S(K1,698,7,440,24) 

50 CALL T(K,1047,20,659, 12,523, 24) 550 CALL S(K1,659,7,44000,30) 

60 CALL S(K,1047,20,659,12) 670 CALL T(K,659,7,784,20,262,24) 
70 CALL T{K,1047, 20,659,12,494, 24) 680 CALL S(K,659,7,784,20) 

80 CALL S(K,1047,20,659,12) 690 CALL T(K,659,7,784,20,523,24) 
90 CALL T(K,1047,20,659,12,247,24) 700 CALL S(K,659,7,784,20) 

100 CALL S(K,1047, 20, 659,12) 710 CALL T(K,659,7,784,20,494,24) 
110 CALL T(K,1047, 20,659, 12,220, 24) 720 CALL S(K,659,7,784,20) 
120 -CALL Stb,1937,29,697,12) 730 CALL T(K,784,20,247,24,740,6) 
130 CALL T(K,1047, 20,659, 12,440, 24) apra fedi data: 


74 i 2 

140 CALL S(K,1047,20,659,12) sfiga ea Cie: 
i e 750 CALL T(K,784,20,523,6,220,24) 
x , DIE Adi pei dei ie 760 CALL S(K,784,20,523,6) 


4 n n 
160 CALL S{K,1047,20,5359,12) 770 CALL T(K2/2,440,24,740,19,523,6) 


peter bai cinesi eoed asi ini ira 780 CALL T(K2/2,440,24,740,19,587,6) 
è Pi e . . 

Sani 790 CALL S(K,784,18,659,6) 

190 CALL T(K,1047,20,659,12,175,24) 800 CALL T(k,880,18,659,6,370,24) 

200 CALL S(K,1047,20,659, 12) 810 CALL S(K,880, 18,587, 6) 

210 CALL 5(K,349, 24,880, 10) 820 CALL T(K,698,18,294,24,587,6) 

220 CALL S(K,698,9,44000, 30) 830 CALL S(K,698,18,523,6) 

230 CALL T(K,880,20,370,24,587,9) 840 RETURN 

240 CALL S‘K,880,20,523,8) 950 K=64 11 K2=58 

290" ERC4 Ti, BA, 20, 209, 2 9) 860 CALL T(K,784,15,392,24,494,6) 


260 CALL S(K,880,20,523,8) 

270 CALL T(K,784,20,494,9,196,24) 
280 CALL S(K,784,20,494,9) 

290 CALL T(K,784,20,494,9,392, 24) 
300 CALL S(K,784,20,440,9) 

310 CALL T(K,784,20,392,10,349,24) 
320 CALL S(K,784,20,392,10) 

330 CALL T(K,784,20,392,10,175,24) 
340 CALL S(K,784,20,392,10) 

350 CALL T(K,784,10,784,20,165,24) 
360 CALL S(K,784,10,44000,30) 

370 CALL T(K,784,10,330,24,932, 14) 
380 CALL S(K,784,10,880,14) 

390 CALL T(K,784,10,932,14,294,24) 
400 CALL S(K,784,10,932,14) 

410 CALL T(K,784,10,147,24,1568,14) 
420 CALL S(K,784,10,932,14) 

430 CALL T(K,784,10,880,15,139,24) 
440 CALL S(K1,659,9,44000,30) 

450 CALL S(K1,466,8,277,24) 


460 CALL S(K1,440,8,44000,30) 
470 CALL S(K1,587,8,220,24) 1070 CALL T(K2/2,784,16,440,7,262,24) 


490 CALL 5(K1,784,9,440,24) 1090 CALL S(K,784,16,523,8) 
500 CALL S(K,698,9,44000,30) 1100 CALL T(K,784,16,523,9,294, 24) 


510 CALL T(K,698,10,880,14,147,24) Da Sora ia » 
520 CALL S(K,698,10,880,14) 112 "Ai de Je i ui 


530 CALL T(K,698,10,294,24,1175,14) da en ui i 
540 CALL S(K,698,10,1047,14) dre i iii, 


{+ =, “e 
550 CALL T(K,698,10,262,24,1175,14) 1499 CAL ARA 000 a S 3300000) 


RETURN 
560 CALL S(K,698,10,1319,14) oa ci 


870 CALL S(K,784,16,440,6) 

880 CALL T(K2/2,784,16,440,7,262,24) 
890 CALL T(K2/2,784,16,492,7,262, 24) 
900 CALL S(K,784,16,523,8) 

910 CALL T(K,784,16,523,8,294,24) 
920 CALL S(K,784,16,523,8) 

930 CALL T(K,740,18,494,9, 147,24) 
940 CALL S(K,740,18,440,9) 

950 CALL T(K,392,10,196,20,784, 20) 
950 CALL T(K,392,10,220,19,784,20) 
970 CALL T(K,392,10,247,19,784,20) 
980 CALL T(K,392,10,262,18,784,20) 
990 CALL T(K,392,10,294,18,784,20) 
1000 CALL T(K,392,10,349,17,784,20) 
1010 CALL T(K,392,10,330,17,784,20) 
1020 CALL T(K,392,10,294,17,784,20) 
1030 RETURN 

1040 K=64 1: K1=300 :: K2=58 

1050 CALL T(K,784,15,392,24,494,8) 
1060 CALL S(K,784,16,440,6) 


s: K2=56 
570 CALL T(K,698,10,131,24,1397,14) 1180 CALL T(K,794,19,494,10,196,22) 
580 CALL S(K,698,10,1175,14) 1190 CALL S(K,784,18,494,10) 
590 CALL T(K,698,10,784,15,123,24) 1200 CALL T(K,784,18,494,10,392,22) 


600 CALL S(K,784,15,587,9) 
610 CALL S(K1,440,8,247,24) 
620 CALL S(K1,392,8,44000,30) 
630 CALL S(K1,523,8,196,24) 


1210 CALL S(K,784, 18,494, 10) 


1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1500 
13510 
13520 
135350 
1540 
1350 
13560 
1370 
1580 
13590 
1400 
1410 
1420 
14350 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1550 
1540 
1550 
1560 
1570 
1590 
1590 
1500 
1610 
1620 
16350 
1640 
1550 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1750 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1920 
18350 
1940 
1850 


T(K,784, 18,494, 10,349, 22) 
5(K2/2,784,18,523,9) 
S(K2/2,784,18,494,9) 
T(K2/2,784,18,440,9, 175,22) 
T(K2/2,784,18,494,9,175,22) 
5(K,392,9,784,18) 
T(K,784,18,784,8,165,22) 
5(K,784,8,890, 16) 
T(K,784,8,932,14,330, 22) 
5(K,784,8,932,14) 
T(K,784,8,932, 14,294, 22) 
5(K,784,8,880, 13) 
T(K,466,7,784,13,147,22) 
5(K,466,7,698,12) 
T(K,440,7,659, 12,139, 22) 
5(K,440,7,698,11) 
T{K,880,8,784,11,277,22) 
5 (K,880,8, 659,12) 
T(K,880,8,534,12,330, 22) 
5(K,784,8,534,12) 
T(K,698,8,1109, 14,220, 22) 
5 (K,659,8,1109,14) 
T(K,598,8,1175,15,294,22) 
5 (K,698,8,1175,15) 
T(K,698,8,1175,15,597,22) 
5 (K,698,8,1175,15) 
T(K2/2,699,9,587,16,523,2 
T(K2/2,659,9,587,16,523,2 
S(K2/2,587,9,587,16) 

5 (K2/2,523,9,587,16) 
T(K,494,10,587,16, 262,22) 
5(K,440,10,587,16) 
T(K,415,10,587,16,247,22 
5 (K,440, 10,523, 15) 
T(K,494,9,597,15,494,22) 
5 (K,494,9,659,14) 
T{K,494,9,698,14,440,22) 
5(K,523,9,659,13) 
T(K,597,8,698,13,220,22) 
5(K,587,8,880, 12) 
T(K,587,8,1175,12,2089,22) 
S(K,659,8,1047,11) 
T(K,698,7,988,11,220,22) 
5(K,698,7,880,10) 
T(K,698,7,831,10, 247,22) 


) 
) 


2 
2 


1,220, 22) 


T(K,659,6,989,11,196,22) 
5(K,659,6,988,11) 
T(K,597,5,890,11,220,22) 
5(K,523,5,880,11) 
T(K,494,5,880,11,349,22) 
5(K,440,5,880,11) 
T(K,494,5,880,11,294,22) 
5(K2/2,523,5,980,11) 
5(K2/2,587,5,880,11) 
T(K,523,5,831,10,330, 22) 
S(K,494,5,831,10) 
T(K,440,5,880,11,220,22) 
5(K,440,5,890,11) 
T(K,440,5,880,11,440,22) 
5(K,440,5,880,11) 
T(K,440,5,880,11,392,22) 
5(K,440,5,880,11) 
T(K,440,5,880,11,196,22) 


1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
ZOZO 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
21350 
2140 
2150 
21650 
2170 
2180 
2190 
2200 
2210 
2220 


2230 


2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
23560 
2370 
2380 
2390 
2400 
2410 
2420 
24350 
2440 
2450 
2460 
2470 
2480 
2490 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


S(K,440,5,880,11) 
T(K,523, 10,587, 18,185, 22) 
5(K,523,10,587,18) 
T({K,523,10,880,18,370,22) 
S(K,523,10,880, 18) 
T(K,523,10,784,18,330,22 
5(K,659,10,740,18) 
T(K,587,10,784,18,165,22) 
S(K,523,10,784,18) 
T(K,880, 10, 698, 18, 147,22) 
S(K,880, 10, 698,18) 
T(K,880, 10,587, 18, 294, 22) 
5(K,880, 10,659, 18) 
T(K,880, 10, 698, 18, 262, 22) 
5(K,880,10,784, 18) 
T(K,784,10,880,18,131,22) 
5(K,740,10,880,18) 
T(K,587, 10,880, 18,123,22) 
5(K,784, 10,880, 18) 
T(K,392, 10,784, 18, 247,22) 
5(K,392,10,784,18) 
T(K,440, 10,784, 18, 262, 22) 
5(K,440,10,784, 18) 
T(K,440, 10,740, 18, 294, 22) 
5(K2/2,494,10,740,18) 
5(K2/2,523,10,740,18) 
T(K,494,10,784,18,196,22) 
5(K,494,10,784,18) 
T(K,494,10,784,18,392,22) 
5(K,440, 10,523, 17) 
T(K,392,10,494,17,349,22) 
S(K,392,10,523, 16) 
T(K,392,10,587,16,175,22) 
5 (K,392,10,494,15) 
T(K,523,9,392,15,165,22) 
5(K,523,9,392,15) 
T(K,523,9,880,14,330,22) 
5(K,523,9,932,13) 
T(K,523,9,980, 13,349, 22) 
5(K,523,9,988, 12) 
T(K,659,6,1047,12,175,22) 
S(K,587,7,1047,12) 
T(K,587,6,1047,12,185,22) 
5(K,587,6,1047, 12) 
T(K,587,6,989,12,370,22) 
5(K,587,6,980,11) 
T(K,587,6,988,11,392,22) 
5(K,587,6,1109,10) 
T(K,698,4,1175,10,196,22) 
5(K,659,5,1175,10) 
T(K,659,4,1175,10,209,22) 
5(K,659,4,1175,10) 
T(K,659,4,1109,10,415,22) 
5(K,659,4,988,9) 
T(K,659,4,1109,9,440,22) 
5(K,659,4,1175,8) 
T(K,784,3,1319,8,220, 22) 
5(K,698,4,1319,8) 
T(K,698,4,1319,8,294,22) 
5(K,698,4,1047,9) 
T(K,698,4,1175,9,587,22) 


CALL 5(K,698,4,880,10) 


CALL 


T(K,698,4,597,10,523,22) 


CALL 5(K,698,4,880,11) 


2500 
2510 
2520 
2550 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2779 
2790 
2790 
2800 
2810 
2920 
2830 
28940 
2850 
2860 
2870 
2980 
2890 
2900 
2910 
2920 
2930 


BEND 


T(K,698,4,698,12,262,22) 
5(K,698,4,587,13) 
T(K,392,8,597,14,247,22) 
5(K,392,8,494,13) 
T(K,392,8,587,13,494,22) 
5(K,392,8,784,12) 
T(K,392,9,988, 12,392, 22) 
5(K,494,7,998, 12) 
T(K,587,7,784,12,494,22) 
5(K,698,6,784,12) 
T(K,699,5,784,12,523,22) 
5(K,587,5,784,12) 
T(K,659,4,998,11,262,22) 
5(K,659,4,1047,11) 
T(K,659,4,794,11,233,22) 
5(K,659,4,784,11) 
T(K,659,4,784,11,466,22) 
5(K2/2,698,4,784,11) 
S(K2/2,740,4,784,11) 
T(K,523,5,784,11,440,22) 
5(K,523,5,784,11) 
T(K,523,5,698, 10, 220, 22) 
5(K,523,5,699,10) 
T(K,523,5,784,10,196,22) 
5(K,659,4,784,10) 
T(K,784,4,659,11,392,22) 
5(K,932,4,659,11) 
T(K,932,3,523,12,349, 22) 
5(K,932,3,523,12) 
T(K,880,5,523,12,175,22) 
5(K,880,5,523, 12) 
T(K,880,5,523, 12, 165,22) 
5(K,880,5,523, 12) 
T(K,523,7,523,12,330,22) 
S(K,523,7,523, 12) 
T(K,494,8,597, 13,294, 22) 
5(K,587,8,440, 13) 

T(K, 698,8,597, 13, 147,22) 
5(K,698,8,698, 13) 
T(K,698,8,880,13,131,22) 
5(K,698,8,9788,13) 
T(K,440,8,1047,13, 262,22) 
5(K,440,8,1319,13) 
T(K,392,8,1175,13,247,22) 


2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


5(K,392,8,1047,14) 
T(K2/2,587,9,988,14,196,22) 
T(K2/2,659,9,988,14, 196,22) 
5(K,698,9,890, 15) 
T(K,698,9,784, 15,262, 22) 
5(K,659,10,784,15) 

T(K,659, 10,880, 15,349, 22) 
5(K,587,11,880,16) 


RETURN 


K=64 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


1: K2=56 
T(K2/2,523,12,784,17,392,22) 
T(K2/2,494,12,784,17,392,22) 
S(k,440, 12, 784, 17) 

T(K,440, 12,784, 17, 549, 22) 
S(K,494,12,784,17) 
T(K2/2,494,12,698,18,392, 22) 
T(K2/2,494,12,784,19,392,22) 
S{(K2/2,494,12,698,19) 
S(K2/2,494,12,659,20) 
T(K2/2,440,13,698,20,196,22) 
T(K2/2,494,13,698,20,196,22) 
S(K,523,14,698, 20) 
T(K,523,15,659, 21,262, 20) 
S(K,523,15,659,21) 
T(K,523,15,659,21,196,18) 
S(K,523,15,659,21) 
T(K,523,15,659,21,165,18) 
S(K,523,15,659,21) 
T(K,523,15,659,21,131,18) 
S(K,523,15,659,21) 


RETURN 


K=64 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


1: K1=300 1: K2=56 
T(K2/2,523,12,784,16,392,22) 
T(K2/2,494,12,784,16,392,22) 
5(K,440,11,784,16) 
T(K,440,11,784,16,349,20) 
5(K,494,10,784,16) 
T(K2/2,494,9,698,15,392, 18) 
T(K2/2,523,9,698,15,392,16) 
S(K2/2,494,8,699,15) 

5 (K2/2,440,98,698, 15) 
T(K,494,8,699,15,196,16) 
T(K,523,7,698,15,196,16) 
T(K1,523,6,659,14,131,16) 
SOUND (-100, 44000, 30) 


RETURN 
3400 SUB S(W,A,B,C,D):: CALL SOUND(-4000,A,B,C,D):: FOR A=1 TO W :: NEXT A :: SU 


3410 SUB T(W,A,B,C,D,E,F):: CALL SOUND(-4000,A,B,C,D,E,F):: FOR A=1 TO W :: NEXT 


A 3: SUBEND 


5 R 
6 R 
7R 


100 
110 
120 
150 
140 
150 
160 


1800 CALL HCHAR(RI,CO,A,1) 
1810 CO=CO+1 
1820 NEXT L 


EM FRANCOMPUTER CLUB 1830 RETURN 
EM 
1840 RE 
EM CORSO FOGAZZARO 174 VICENZA 1850 cui sh 


SOUND (1000, 131,0) 
1860 CALL SOUND(750,131,0) 
1870 CALL SOUND(250, 131,0) 
1880 CALL SOUND(1000, 131,0) 


REM CRAZY WEST(TI BASIC) 
REM DOLHLOADED FROM HUL,.TISSIUC.IT 
REM BY LUISE STEFANOC(ANNI 14) 


Ar 1890 CALL SOUND(750,156,0) 
5 1900 CALL SOUND (250, 147,0) 

CALL CHAR(115,"3C4299A1A199425C") 9 * 

gie 1910 CALL SOUND(750,147,0) 


1920 CALL SOUND (250, 131,0) 
1930 CALL SOUND(750,131,0) 
1940 CALL SOUND (250, 123,0) 


CALL SCREEN(9) 
FOR INTEST=1 TO 5 


READ ISISCHE 1950 CALL SOUND (750,131,0) 
GOSUB 1750 1960 RETURN 

NEXT INTEST 

DATA "O21O££CRAZY WEST££","05140VVERO..... ","0806..... IL PAZZO MONDO DEL" 
DATA "13512fAr WeSt" 


DATA "2106s BY LUISE STEFANO" 

FOR SUSANNA=1 TO 30 

READ DURATA, NOTA 

CALL SOUND (DURATA, NOTA, 2) 

NEXT SUSANNA 

DATA 100,523, 120,587, 180, 659, 120, 784, 150, 784, 110, 880, 190, 784, 120, 659, 210,523 


s130,587,110,659 


170 
180 


DATA 200,659, 180, 597, 150,523, 150, 597 
DATA 100,527, 100,587, 100, 659, 180, 784, 180, 784, 180, 880, 180, 784, 180, 659, 180, 523 


, 180,587, 180, 659, 180, 659 


190 
200 
210 
220 
230 
240 
250 
260 
279 
280 
290 
300 
310 
320 
330 
340 
0 Ss 
350 
LA 
360 
IU 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
3,1 
490 
4,3 
500 
510 


DATA 180,587, 180, 587, 200, 523 

REM ISTRUZIONI 

CALL CLEAR 

CALL SCREEN(3) 

TITOLI$="O0211ISTRUZIONI" 

GOSUB 1750 

FOR MUSICA=1 TO 8 

READ DURATA, NOTA 

CALL SOUND (DURATA, NOTA, 2) 

NEXT MUSICA 

DATA 180,784,380,1047, 180, 1047, 180,784, 200, 784, 180, 659, 200, 659, 300,527 
FOR ISTR=1 TO 10 

READ TITOLI$ 

GOSUB 1750 

NEXT ISTR 

DATA "OSOZIN QUESTO MOMENTO TI TROVI", "O7O3NEL PAZZO WEST. ","0903UN PISTOLER 
PARA CONTRO" 


DATA "11035DI TE DELLE LETTERE.","1305PER DIFENDERTI PREMI", "1S03IL TASTO DEL 
LETTERA" 

DATA "17035CHE EGLI SPARA","1903MA ATTENZIONE..... ","Z103TI AVVICINI SEMPRE P 
DATA "2303HO CONCLUSO, TOCCA A TE!!" 


FOR PAUSA=1 TO 400 

NEXT PAUSA 

REM PAESAGGIO 

CALL CLEAR 

CALL CHAR(41, "0000001C1C1C") 

CALL COLOR(2,13,1) 

FOR MONTAGNA=1 TO 32 

READ RIGA, COLONNA 

CALL HCHAR(RIGA, COLONNA, 41) 

NEXT MONTAGNA 

DATA 9,1,8,2,7,3,6,4,5,5,4,6,3,7,4,9,5,7,6,10,7,11,8,12,7,13,6,14,5,15,4,16, 
7 

DATA 4,18,5,19,6,20,7,21,8,22,9,23,10,24,9,25,8,26,7,27,6,28,5,29,4,30,3,31, 
ori 

CALL COLOR(9,7,1) 

CALL CHAR(96,"00193F3F7F7F7F65") 


1050 REM 


CALL CHAR(97, "3D090F01010107") 800 CALL HCHAR(16,9,113) 

CALL CHAR(98, "O0EOFCFEFEFE74D0") 810 CALL HCHAR(17,9,114) 

CALL CHAR(99, "90F080808080E") 820 CALL HCHAR(16,10,115) 

CALL HCHAR(11,9,96) 830 CALL HCHAR(17,10,116) 

CALL HCHAR(12,9,97) 840 CALL CHAR(117,"0107010103031D") 
CALL HCHAR(11,10,98) 850 CALL CHAR(118, "010102040818") 
CALL HCHAR(12,10,99) 860 CALL CHAR(119, "COFOCOCOEODOC8C4") 
CALL HCEHAR(11,21,96) 870 CALL CHAR(120, "C04020101030") 
CALL HCHAR(12,21,97) 880 RI1=16 

CALL HCHAR(11,22,98) 890 C01=28 

CALL HCHAR(12,22,99) 900 RI2=17 

TITOLI$="1111CRAZY WEST" 910 C02=29 

GOSUB 1750 911 ROUND=1 

CALL COLOR(10,15,1) 912 PUNTI=0 

CALL CHAR(104, "00187CFEFFFE3C") 920 REM INIZ. 

CALL HCHAR(4,4,104) 930 CALL HCHAR(RI1,C01,117) 

CALL HCHAR(3, 12,104) 940 CALL HCHAR(RI2,C01,118) 

CALL HCHAR(4,21,104) 950 CALL HCHAR(RI1,C02,119) 

CALL HCHAR(2,28,104) 960 CALL HCHAR(RI2,C02,120) 
TITOLI$="0204PUNTI=" 970 AL$=STR$ (PUNTI) 

GOSUB 1750 980 FOR TI=1 TO LEN(AL$) 
TITOLI$="0220ROUND: " 990 CALL HCHAR(2,9+TI,ASC(SEG$(AL$,TI,2))) 
GOSUB 1750 1000 NEXT TI 

REM INIZIO GIOCO 1010 RO$=STR$ (ROUND) 


CALL CHAR(113,"0107010103050911") 
CALL CHAR(114, "01020408080C") 
CALL CHAR(115, "COFOCOCOEO0EODCD") 
CALL CHAR(116, "C06020101018") 


I NUMERI POSSANE ESSERE SPARATI 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1215 
1220 
1250 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
13520 
1350 
1340 
1350 
1360 
1570 
1380 
1390 
1440 
1450 
1460 


LETT=INT((65-90+1)#RND)+90 

FOR PARTE=12 TO COI 

CALL HCHAR(17,PARTE,LETT) 

CALL SOUND(10,-6,2) 

CALL HCHAR(17,PARTE, 32) 

CALL KEY(0,K,5) 

IF S=0 THEN 1130 

IF K=LETT THEN 1160 

IF PARTE=CO1 THEN 1300 

NEXT PARTE 

REM LETTERA COLPIA 

CALL CHAR(126, "SSAASSAASSAASSAA") 
CALL HCHAR(17, PARTE, 126) 

FOR T=0 TO 20 

CALL SOUND(100,-6,T) 

NEXT T 

CALL HCHAR(17, PARTE, 32) 
PUNTI=PUNTI+5 

ROUND=ROUND+1 

CALL HCHAR(RI1,C01,32,2) 

CALL HCHAR(RI2,C01,32,2) 
C01=C01-1 

C02=C02-1 

IF ROUND=14 THEN 1550 

GOTO 920 

REM MORTO 

CALL CHAR(34, "O01FICICICICICIC") 
CALL CHAR(35, "1C1C1F1F15") 

CALL CHAR(36, "0000020502008020") 
CALL CHAR(37, "2115FFFFFFO1") 
CALL HCHAR(RI1,C01,34) 

CALL HCHAR(RI2,C01,35) 

CALL HCHAR(RI1,C02,36) 

CALL HCHAR(RI2,C02,37) 

GOSUB 1840 

TITOLI$="1304SEI MORTO, TENTI ANCORA(Y/N)?" 
GOSUB 1750 

CALL KEY(0,K,5) 


1020 FOR RU=1 TO LEN(RO0$) 
1030 CALL HCHAR(2, 25+RU, ASC(SEG$(RO0$,RU,1))) 
1040 NEXT RU 


I VALORI DELL LINEA 1060 POSSONO VENIRE MODIFICATI IN MODO CHE ANCHE 


IF S=0 THEN 1460 

IF K=89 THEN 1510 
CALL CLEAR 

END 

CALL 
CALL 
CALL 
CALL 
CALL 
GOTO 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


1470 
1480 
1490 
1500 
1510 
1520 
15350 
1551 

1532 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1625 
1630 
1640 
16550 
1660 
1670 
1680 
1590 
1700 
1710 
1720 
1730 
1740 


HCHAR(13,4,32,28) 

HCHAR (RI1,C01,32,2) 
HCHAR(RI2,C01,32,2) 
HCHAR (2, 10,32, 2) 
HCHAR (2, 27,32, 2) 

880 

CLEAR 

SOUND (500, 698, 0) 

SOUND (500, 659, 0) 

SOUND (500, 587,0) 

SOUND (250, 587,30) 

SOUND (500, 587, 0) 

SOUND (500, 659,0) 

CALL SOUND (500, 698,0) 

CALL SCREEN(16) 
TITOLI$="OBOBCONGRATULAZIONI " 
GOSUB 1750 

CALL CHAR(120, "FFFFFFFFFFFFFFFF") 
CALL HCHAR(6,6,120,19) 

CALL VCHAR(6,6,120,5) 

CALL HCHAR(10,6,120,19) 

CALL VCHAR(6,24,120,5) 
TITOLI$="1405SEI MOLTO ABILE CON LA" 
GOSUB 1750 
TITOLI$="1711TASTIERA" 

GOSUB 1750 

PRINT TAB(11); "CIAO!!!" 

1745 PRINT » 
1746 END 
1750 REM TITOLI 

1760 RI=VAL(SEG$(TITOLI$,1,2)) 

1770 CO=VAL (SEG$(TITOLI$,3,2)) 

1780 FOR L=5 TO LEN(TITOLI$) 

1790 A=ASC(SEGS(TITOLI$,L,1)) VEDI INIIo 


GRAFFI SC WORLD 





UN FANTASTICO PROGRAMMA CHE POTETE RICHIEDERE ALLC STESSO 
AUTORE 


STEFANO BARBIERI 
Via Laghetto 2 

39042 BRESSANONE (BZ) 
TEL 0472 22424 


GRAFIC WORLD E UN PROGRAMMA SCRITTO IN LINGUAGGIO MACCHINA 
CHE VI PERMETTE DI DISEGNARE FACILMENTE IN ALTA RISOLUZICNE. 
L'AREA DEL DISEGNO E' GRANDE 200 X 195 PUNTI. 


POTETE ACCEDERE SU OGNUNO DEI PUNTI E SCEGLIERE IL COLORE 
DEL PUNTO ( 16 COLORI A SCELTA ! ) 


IL DISEGNO PUO' ESSERE SALVATO SU DISCO E POTETE RICARICAR= 
LO QUANDO VI SERVE. 


SICCOME IL PROGRAMMA USA CIRCA 42 KBYTE DI RAM, PUO' ESSE= 
RE USATO SOLO CON L'ESPANSIONE DI MEMORIA IN AGGIUNTA. 


LA CONFIGURAZIONE RICHIESTA PUO' ESSERE 


1) TI 99/4A 
ESPANSIONE DI MEMORIA 
UNITA' DI MEMORIA A DISCHI 
MODULO MINIMEMORY 


2) TI 99/4A 
ESPANSIONE DI MEMORIA 


UNITA' DI MEMORIA A DISCHI 
MODULO EDITOR ASSEMBLER 


AL PROGRAMMA SONC ALLEGATE 9 PAGINE DI SPIEGAZIONI. 
BARBIERI L'AUTORE CI HA LAVORATO SOPRA BEN 4 MESI E 
IL RISULTATO E' DECISAMENTE NOTEVOLE. COME DETTO S0= 
PRA CHI LO DESIDERA PRENDA ACCORDI DIRETTAMENTE, 


100 
101 
102 


104 


106 
110 
120 


310 
9320 
930 


REM SCHEDARIO CLIENTELA E OPERAZIONI VARIE 
REM 

REM {IN QUESTO CASO FIGURA LA GESTIONE DI UNO 
REM STUDIO DENTISTICO CON RELATIVI LAVORI E 
REM INDIRIZZI DELLA CLIENTELA E IMPORTI DELLE 
REM OPERAZIONI ESEGUITE 

REM ===============s3333z osso 
CALL CLEAR 

L$="---------------------------- 1) 

OPTION BASE i 


DIM A$(55),B$(55),C$(55),E$(55),F$(55),6$(55),H$(S5),M$(55),N$(55) 


GOTO 520 
CALL KEY(0,A,B) 

IF B=0 THEN 160 

A=A-48 

IF A<O THEN 160 

RETURN 

CALL CLEAR 

IF S<>1 THEN 320 

OPEN £1:"CS1", INTERNAL, OUTPUT,FIXED 128 
PRINT :: "ATTENDERE, STO' REGISTRANDO":: 
PRINT £1:K$,C 

FOR X=i TO C 


PRINT £1:A$(X),B$(X),C$(X),E$(X),F$(X),G$(X),H$(X),M$(X),N$(X) 


NEXT X 

X=X-1 

CLOSE £1 

CALL CLEAR 

RETURN 

CALL CLEAR 

IF S=1 THEN 4809 

OPEN £1:"CS1", INTERNAL, INPUT ,FIXED 128 

INPUT £1:K$,C 

PRINT ::L$::"SCHEDARIO : "sk$: "INDIRIZZI INSERITI 


FOR X=1 TOC 


INPUT £1:A$(X),B$(X),C$(X) ,E$(X) ,F$(X) ,G$(X),H$(X),M$(X) ,N$(X) 


NEXT X 

X=X-1 

CLOSE £1 

CALL CLEAR 

S=1 

PRINT "VUOI CONTINUARE (1)":"O MENU" (2)":: 
INPUT W 

IF 2=W THEN 520 

RETURN 

CALL CLEAR 

PRINT L$:" SCHEDARIO CLIENTI ":L$:::: 
RETURN 

GOSUR 490 


PRINT "O FINE LAVORO (NEL REG.)"::"1 CREAZIONE SCHEDARIO 5 


MENTO SCHEDARIO": 


340 


PRINT " (RICHIAMO DAL REG.)":::::"(SE VUOI RITORN. 


DA PREMI IL PUNTO)" 


JI0 
360 
970 
3580 
390 
600 
6109 
620 
630 


GOSUB 160 

IF A>2 THEN 550 
IF A=0 THEN 2160 
IF Z=1 THEN 600 
IF A=1 THEN 700 
IF A=1 THEN 550 
2=1 

GOSUB 490 


PRINT K$::"O QUADRO PRINCIPALE"::"1 INSERIMENTO CLIENTI"::"2 


LIENTI":: 


640 
650 


PRINT "353 VISIONE CLIENTI +"::1::: 
GOSUB 160 


::L$:" ATTENDERE PREGO 


"2 AGGIORNA 


INDIETRO DI": "UNA DOMAN 


VARIAZIONE C 


1000 PRINT L$::A$(X):B$(X):C$(X)::"CF "3E$(X)::"TEL.:"&F$(X)s:"DATA :"&G$(X)t: 
1010 PRINT "AREA :":"SUP.= "rH$(X):"INF.= "iM$(X): "LIRE "sN$(X)::L$:"VA BENE ? ( 
S/N)" 

1020 PRINT "LUNG.FILE MAX.100 ="{LEN{A$(X)&B$(X)&C$(X)&E$(X)&F$(X)&G$(X)&H$(X)&M 
$(X)&N$(X)) 


1030 GOSUB 160 1040 IF A<>35 THEN 750 


1045 IF X=55 THEN 100 

1050 PRINT L$: "ALTRI INDIRIZZI ? (S/N)" 
1060 GOSUB 160 

1070 IF Ac>35 THEN 1100 


1080 X=X+1 
1090 GOTO 740 


1100 C=X 
660 IF A=0 THEN 520 1110 S=1 
670 IF A>3 THEN 650 1120 T=1 
680 CALL CLEAR 1130 Z=1 
690 ON A GOTO 1160, 1200, 1760 1140 GOTO 520 
700 REM **PROC.CREAZIONE** 1150 REM +#PROC. INSER. #* 
710 CALL CLEAR 1160 GOSUB 330 
720 INPUT "NOME SCHEDARIO ?":K$% 1170 T=1 
730 X=1 1180 GOTO 1080 
7355 IF X=55 THEN 100 1190 REM *##PROC.VARIAZ.* 
740 PRINT L$:: "SCHEDA N."; 1200 GOSUB 330 
750 PRINT L$: "NOME ":: 1210 CALL CLEAR 
760 INPUT A$(X) 1220 INPUT "CODICE DA VARIARE ? ":Y 
770 PRINT L$: "VIA ":: 1230 IF Ye=0 THEN 1220 
780 INPUT B$(X) 1240 IF Y>C THEN 1220 
790 IF B$(X)="." THEN 750 1250 PRINT :: "SCHEDA "sY:L$ 
800 PRINT L$:"C.A.P. PAESE": 1260 PRINT :: "NOME :"::A$(Y)s: "VARIO ? (S/N) ":: 
810 INPUT C$(X) 1270 GOSUB 160 


820 IF C$(X)="." THEN 770 

830 PRINT L$: "CODICE FISCALE 16 caratteri ":: 
840 INPUT E$(X) 

850 IF E$(X)="." THEN 800 

860 PRINT L$:"TELEFONO":: 

870 INPUT F$(X) 

880 IF F$(X)="." THEN 830 

890 PRINT L$: "DATA INIZIO ":: 

900 INPUT G$(X) 

910 IF G$(X)="." THEN 860 

920 PRINT L$: "AREA DI INTERESSE":: 
930 INPUT "SUP.= ":H$(X) 


940 IF H$(X)="." THEN 890 

950 INPUT "INF.= ":M$(X) 1280 IF A=35 THEN 1540 

960 IF M$(X)="." THEN 9350 1290 PRINT ::"VIA :"::B$(Y)s: "VARIO ? (S/N) ":: 

970 INPUT "LIRE ":N$(X) 1300 GOSUB 160 

980 IF N$(X)="." THEN 950. 1310 IF A=35 THEN 1560 

990 CALL CLEAR 1320 PRINT ::"C.A.P. PAESE:"::C$(Y):: "VARIO ? (S/N) "rs: 


13350 GOSUB 160 

1540 IF A=35 THEN 1580 

1350 PRINT :: "CODICE FISCALE :"::E$(Y)s:: "VARIO ? (S/N) ":: 
13560 GOSUB 160 

13570 IF A=35 THEN 1600 

1380 PRINT :: "TELEFONO :"::F$(Y):: "VARIO ? (S/N)":: 
1390 GOSUB 160 

1400 IF A=35 THEN 1620 

1410 PRINT :: "DATA 1"::6$(Y)::"VARIO ? (S/N)":: 
1420 GOSUB 160 

1450 IF A=35 THEN 1640 

1440 PRINT ::"SUP.= "::H$(Y)s: "VARIO ? (S/N) ":: 
1450 GOSUB 160 

1450 IF A=35 THEN 1660 

1470 PRINT ::"INF.= "::M$(Y):: "VARIO ? (S/N) ":: 
1480 GOSUB 160 


1490 IF A=35 THEN 


1680 


1500 PRINT ::"LIRE :"::N$(Y) i: "VARIO ? (S/N) ":: 


1510 GOSUB 160 
1520 IF A=35 THEN 
1530 GOTO 1710 
1540 INPUT "NUOVO 
1550 GOTO 1290 
1560 INPUT "NUOVA 
1570 GOTO 1320 
1580 INPUT "NUOVO 
1590 GOTO 1350 
1600 INPUT "NUOVO 
1610 GOTO 1380 
1620 INPUT "NUOVO 
1650 GOTO 1410 
1640 INPUT "NUOVA 
1650 GOTO 1440 
1560 INPUT "NUOVO 
1670 GOTO 1470 
1680 INPUT "NUOVO 
1590 GOTO 1500 
1700 INPUT "NUOVE 


1700 


NOME 


VIA 


C.A.P. 


P'IA$(Y) 


P":B$(Y) 


PAESE ?":C$(Y) 


COD.FISC. ?":E$(Y) 


TELEFONO ?":F$(Y) 


DATA 


SUP. 


INF. 


LIRE 


P"16$(Y) 


P":H$(Y) 


P"aM&(Y) 


9P":N$(Y) 


1710 PRINT ::L$: "ALTRI COD.DA VARIARE ? (S/N) " 


1720 GOSUB 160 
17350 IF A=35 THEN 
1740 T=1 

1750 GOTO 520 


1210 


1760 REM **PROC.VIS.** 


1770 GOSUB 330 
1780 CALL CLEAR 


1790 PRINT L$:" VISUALIZZAZIONE INDIRIZZI":L$:::: 
1800 PRINT "O QUADRO PRINCIPALE":: 


1810 PRINT "1 RICERCA PER NOME"::"2 


1820 GOSUB 160 


18350 IF A>2 THEN 1820 
1840 IF A=0 THEN 520 


1850 ON A GOTO 1860, 20350 


1860 CALL CLEAR 


1970 INPUT "NOME DA CERCARE ?_ ":Y$ 


1880 FOR Y=1 TO C 


1890 IF A$(Y)<>Y$ THEN 1920 


1900 GOSUB 2070 
1910 GOTO 1860 
1920 NEXT Y 

1930 GOTO 1780 
1940 CALL CLEAR 
20350 FOR Y=1 TO C 
2040 GOSUB 2070 
2050 NEXT Y 

2060 GOSUB 1780 
2070 CALL CLEAR 


2080 PRINT "CODICE N."35Y:L$:: 
2090 PRINT A$(Y):B$(Y):C$(Y)::"C.F. 


Ar": 


VISIONE TOTALE":: 


"sE$(Y)::"TEL.:"&F$(Y):: "DATA 


2100 PRINT "SUP.= "sH$(Y):"INF.="s3M$(Y): "LIRE "sN$(Y) 
2110 PRINT :L$: "PREMI 0 PER USCIRE" 


2120 PRINT "UN TASTO PER CONTINUARE" 


2150 GOSUB 160 


2140 IF A=0 THEN 1760 


2150 RETURN 


2160 IF T=0 THEN 2180 


2170 GOSUB 210 


2180 PRINT "VUOI CONTINUARE O FINIRE":: 


2190 INPUT "CO/FI 


":W$ 


2200 IF W$="FI" THEN 2220 


2210 GOTO 110 
2220 END 


:"%G$ (Y):: "ARE 


1 REM PROGRAMMA PER LA GESTIONE DI UNA ELEZIONE 
2 REM FRANCOMPUTER CLUB VICENZA ( BY ARDITO ) 
REM ===========z===-= scosso ssnnnana 
GOSUB 25000 
CALL CLEAR 
GOSUB 11000 
3 REM PROGRAMMA PER L’accetazione dei dati 
CALL CLEAR 
REM 
PRINT "===s=======ss=o=sssssesssnnnn=" 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 
PRINT 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 
PRINT 
INPUT 
REM 
REM 
CALL CLEAR 


"AGGIORNAMENTO" 


ioPilat 


2__MSI...." 


3__DP....." 
3__DP....." 

8 Daiano 
5_PSDI..." 
6__PRI...." 
7__SCHEDE BIANCHE " 
B__SCHEDE NULLE " 


"Partito da aggiornare": 
PAR 


PRINT ""uAGGIORNAMENTO"" 
PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "Quale sezione "i 

INPUT SEZ 
CALL CLEAR 
PAR=1 THEN 
PAR=2 THEN 
PAR=3 THEN 
PAR=4 THEN 
PAR=5 THEN 
PAR=6 THEN 
PAR=7 THEN 
PAR=8 THEN 


400 

410 

420 

430 

440 

450 

460 

470 

REM 

PRINT "Voti al partito pci ": 
PAR$="1" 

INPUT VOTI 

GOTO 500 

PRINT "Voti al partito msi ": 
PAR$="2" 

INPUT VOTI 


O PRINT 


GOTO 500 
"Voti 
PARS$="3" 
INPUT VOTI 
GOTO 500 
PRINT "Voti 


al partito dp": 


al partito dc "i 


2 PAR$="4" 


INPUT VOTI 
GOTO 500 
PRINT "Voti 
PAR$="5" 
INPUT VOTI 
GOTO 500 
PRINT "Voti 
PAR$="6" 
INPUT VOTI 
GOTO 500 
PRINT "Schede Bianche "i 
INPUT VOTI 

GOTO 500 

PRINT "Schede nulle ": 
INPUT VOTI 

GOTO 500 

REM 

REM 

REM 


al partito psdi ": 


al partito pri "i 


510 ON SEZ GOSUB 9000, 9010, 9020, 9030, 7040, 9050, 9060, F070, 9080, 9090, 7100, 7110, 912 
0,9130,9140, 9150 

700 PRINT "===================z3z===zz=" 
705 GOTO 11000 

710 PRINT ""AGGIORNAMENTO"" 
720 PRINT 

7350 PRINT 

740 PRINT 

750 PRINT 

760 PRINT " Vuoi vedere un quadro " 
770 PRINT " Generale delle sezioni "i 
780 INPUT S$ 

790 IF S$="S" THEN 810 ELSE 10 

910 CALL CLEAR 

820 PRINT "===============s=====o====n=" 
8350 PRINT 

840 PRINT 

850 PRINT 

860 PRINT 

870 PRINT 

880 PRINT "QUALE Sezione (1/16) ": 

890 INPUT SEZ 

900 CALL CLEAR 

910 PRINT "=========================nà" 
920 PRINT 

9350 PRINT 

940 PRINT "Sezione num. ”"; 

941 PRINT SEZ 

942 PRINT 

960 ON SEZ GOSUB 6000, 6010, 6020, 6030, 6040, 6050, 6060, 6070, 6080, 6090, 6100, 6110,612 
0,6130,6140, 6150 


965 GOTO 1160 1163 PRINT 

970 IL$="2" 1170 PRINT" MSI_____ #5 

975 GOTO 1150 1172 PRINT MSI 

980 IL$="3" 1173 PRINT 

985 GOTO 1150 1180 PRINT " DE: cu ni 

990 IL$="4" 1182 PRINT DP 

995 GOTO 1150 1183 PRINT 

1000 IL$="5" 1190 PRINT " 13 SAONA "i 

1005 GOTO 1150 1192 PRINT DC 

1010 IL$="6" 1193 PRINT 

1015 GOTO 1150 1200 PRINT " PSDI_____ “ 

1020 IL$="7" 1202 PRINT PSDI 

1025 GOTO 1150 1203 PRINT 

1030 IL$="8" 1210 PRINT " PRI______ "i 

1035 GOTO 1150 1212 PRINT PRI 

1040 IL$="9" 1213 PRINT 

1045 GOTO 1150 1222 PRINT "__Schede bianche__"; 
1050 IL$="10" 1223 PRINT SB 

1055 GOTO 1150 1225 PRINT 

1060 IL$="11" 1233 PRINT 

1065 GOTO 1150 1235 PRINT "__Schede nulle____"5 
1070 IL$="12" 1236 PRINT SN 

1075 GOTO 1150 1237 PRINT 

1080 IL$="13" 1242 PRINT "Totale Voti..." 
1085 GOTO 1150 1243 PRINT PCI+MSI+DP+DC+PSDI+PRI+SB+SN 
1090 IL$="14" 1245 REM 

1095 GOTO 1150 1340 PRINT 

1100 IL$="15" 1341 PRINT 

1105 GOTO 1150 1342 PRINT "PREMI ENTER PER FINIRE "i 
1110 IL$="16" 1343 INPUT 0$ 

1115 GOTO 1150 1344 GOTO 11000 

1150 FIL$="V"&IL$ 1345 END 

1160 PRINT "PCI si 2000 CALL CLEAR 


1162 PRINT PCI 2010 REM 


2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2150 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 


2230 


2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 


2350 


23560 
2370 
23580 
2390 
2400 
2410 
2420 
2450 
2440 
2450 
2460 
2470 
2490 
2490 
2500 
2510 
2520 
2530 
2550 
2560 
2570 
2580 
2590 
2600 
2620 
2630 
2640 
6000 
6001 


REM 

REM 

PRINT " PCI 
PRINT " 
GOSUB 
GOSUB 20000 
GOSUB 24000 
GOSUB 6010 
GOSUB 20000 
GOSUB 24000 
GOSUB 6020 
GOSUB 20000 
GOSUB 24000 
GOSUB 6030 
GOSUB 20000 
GOSUB 24000 
GOSUB 65040 
GOSUB 20000 
GOSUB 24000 
GOSUB 65050 
GOSUB 20000 
GOSUB 24000 
GOSUB 65060 
GOSUB 20000 
GOSUB 24000 
GOSUB 65070 
GOSUB 20000 
GOSUB 24000 
GOSUB 6080 
GOSUB 20000 
GOSUB 24000 
GOSUB 5090 
GOSUB 20000 
GOSUB 24000 
GOSUB 6100 
GOSUB 20000 
GOSUB 24000 
GOSUB 6110 
GOSUR 20000 
GOSUB 24000 
GOSUB 6120 
GOSUB 20000 
GOSUB 24000 
GOSUB 65130 
GOSUB 20000 
GOSUB 24000 
GOSUB 6140 
GOSUB 20000 
GOSUB 24000 
GOSUB 
GOSUB 20000 
GOSUB 24000 
PRINT " 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 0$ 
GOTO 11000 
END 
PCI=SUNO (1) 
MSI=SUNO (2) 


DP=SUNO (3) 


3 DC=SUNO (4) 


PSDI=SUNO (5) 
PRI=SUNO (6) 
SB=SUNO (7) 
SN=SUNO (8) 
RETURN 
PCI=SDUE (1) 
MSI=SDUE (2) 
DP=SDUE (3) 


3 DC=SDUE (4) 


PSDI=SDUE (5) 
PRI=SDUE (6) 
SB=SDUE (7) 
SN=SDUE (8) 
RETURN 
PCI=STRE(1) 
MSI=STRE (2) 
DP=STRE (3) 
DC=STRE (4) 
PSDI=STRE (5) 
PRI=STRE (6) 
SB=STRE (7) 
SN=STRE (8) 
RETURN 
PCI=SQUA (1) 
MSI=SQUA (2) 
DP=SQUA (3) 
DC=SQUA (4) 
PSDI=SQUA (5) 
PRI=SQUA (6) 
SB=SQUA (7) 
SN=SQUA (8) 
RETURN 
PCI=SCIN(1) 
MSI=SCIN(2) 
DP=SCIN{3) 


3 DC=SCIN(4) 


PSDI=SCIN(5) 
PRI=SCIN(6) 
SB=SCIN(7) 


TPC5 TAB (6)  TMS; TAB (11 


"continuare "i 


"TOTALE SCHEDE BIANCHE ";TSB 
"TOTALE SCHEDE NULLE 


"5 TSN 


6047 
6048 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6070 
6071 
6072 
6073 
5074 
6075 
6076 
6077 
6078 
5080 
6081 
6082 
6083 
65084 
6085 
6086 
6087 
6089 
6090 
5091 
6092 
6093 
6094 
6095 
6096 
6097 
6098 
6100 
6101 
6102 


SN=SCIN(8) 
RETURN 
PCI=SSEI(1) 
MSI=SSEI (2) 
DP=SSEI (3) 
DC=SSEI (4) 
PSDI=SSEI (5) 
PRI=SSEI (6) 
SB=SSEI (7) 
SN=SSEI (8) 
RETURN 
PCI=SSET (1) 
MSI=SSET (2) 
DP=SSET (3) 
DC=SSET (4) 
PSDI=SSET (5) 
PRI=SSET (6) 
SB=SSET (7) 
SN=SSET (8) 
RETURN 
PCI=SOTT(1) 
MSI=SOTT (2) 
DP=SOTT (3) 
DC=SOTT (4) 
PSDI=SOTT (5) 
PRI=SOTT (6) 
SB=SOTT (7) 
SN=SOTT (8) 
RETURN 
PCI=SNOV{1) 
MSI=SNOV (2) 
DP=SNOV (3) 
DC=SNOV (4) 
PSDI=SNOV (5) 
PRI=SNOV (6) 
SB=SNOV (7) 
SN=SNOV (8) 
RETURN 
PCI=SDIE (1) 
MSI=SDIE (2) 
DP=SDIE (3) 
DU=SDIE (4) 
PSDI=SDIE (5) 
PRI=SDIE (6) 
SB=SDIE (7) 
SN=SDIE (8) 
RETURN 
PCI=SUND (1) 
MSI=SUND (2) 
DP=SUND (3) 


61035 DC=SUND (4) 
6104 PSDI=SUND(5) 
6105 PRI=SUND(6) 
6106 SB=SUND (7) 
6107 SN=SUND(8) 
6108 RETURN 

6110 PCI=SDOD(1) 
6111 MSI=SDOD(2) 
6112 DP=SDOD(3) 
6113 DC=SDOD(4) 
6114 PSDI=SDOD(5) 
6115 PRI=SDOD (6) 
6116 SB=SD0D(7) 
6117 SN=SDOD(8) 
6118 RETURN 

6120 PCI=STRD(1) 
6121 MSI=STRD(2) 
6122 DP=STRD(3) 
6123 DC=STRD(4) 
6124 PSDI=STRD(5) 
6125 PRI=STRD(6) 
6126 SB=STRD(7) 
6127 SN=STRD(8) 
6128 RETURN 

6130 PCI=SOUT(1) 
6131 MSI=SOUT (2) 
61352 DP=SQUT (3) 
61353 DC=SQUT (4) 
6134 PSDI=SQUT (5) 
61355 PRI=SOQUT (6) 
6136 SB=SOUT (7) 
6137 SN=S@QUT (8) 
6138 RETURN 

6140 PCI=SQUI (1) 
6141 MSI=SQUI (2) 
6142 DP=SQUI (3) 
61435 DC=SQUI (4) 
6144 PSDI=SQUI (5) 
6145 PRI=SOQUI (6) 
6146 SB=SQUI (7) 
6147 SN=SQUI (8) 
6148 RETURN 

6150 PCI=SSED(1) 
6151 MSI=SSED(2) 
6152 DP=SSED(3) 
6153 DC=SSED(4) 
6154 PSDI=SSED(5) 
6155 PRI=SSED(6) 
6156 SB=SSED(7) 
6157 SN=SSED(8) 
6158 RETURN 

9000 


9005 RETURN 


SUNO (PAR) =VOTI 


11010 
11020 
11021 
11022 
110350 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11120 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11285 
11290 
20000 
20010 
24000 
24010 
24020 
24030 
24040 
24050 
24060 
24070 
24080 
25000 
25140 
25141 
25142 
25145 
25144 
25145 


25146 


25147 


25148 
25149 
25150 
25200 
25210 
25220 


29000 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


1__AGGIORNAMENTO 
2__PARZIALE VOTI 
3__TOTALE VOTI 


4__FINE 


* SCEGLI :"; 


INPUT SCE 


IF SCE=1 THEN 
IF SCE=2 THEN 
IF SCE=3 THEN 
IF SCE=4 THEN 


GOTO 1 
RETURN 
END 


10 
810 
2000 
11290 
1000 


9010 
9015 
9020 
9025 
FOTO 
9035 
9040 
9045 
9050 
9055 
9060 
9065 
9070 
9075 
9080 
9085 
9090 
9095 
9100 
9105 
dio 
9115 
9120 
9125 
9130 
9135 
9140 
9145 
9150 
9155 


SDUE (PAR) =VOTI 
RETURN 
STRE (PAR) =VOTI 
RETURN 
SQUA (PAR) =VOTI 
RETURN 
SCIN{(PAR)=VOTI 
RETURN 
SSEI (PAR)=VOTI 
RETURN 
SSET (PAR) =VOTI 
RETURN 
SOTT (PAR)=VOTI 
RETURN 
SNOV (PAR) =VOTI 
RETURN 
SDIE (PAR) =VOTI 
RETURN 
SUND (PAR) =VOTI 
RETURN 
SDOD (PAR) =VOTI 
RETURN 
STRD (PAR) =VOTI 
RETURN 
SG@UT (PAR) =VOTI 
RETURN . 
SQUI (PAR) =VOTI 
RETURN 
SSED (PAR) =VOTI 
RETURN 


11000 CALL CLEAR 


PRINT PCI:5TAB(6);MSI:TAB(11)iDP:TAB(15);DCs TAB(20) PSDI; TAB(25) sPRI 


RETURN 


TPC=TPC+PCI 
TMS=TMS+MSI 
TDP=TDP+DP 


TDC=TD 


C+DC 


TPS=TPS+PSDI 
TPR=TPR+PRI 
TSB=TSB+SB 


TSN=T5 
RETURN 
CALL C 
PRINT 
PRINT 
FOR WA 
NEXT W 
CALL C 
PRINT 


PRINT 


PRINT 


PRINT 
PRINT 
INPUT 
FOR I= 
NEXT I 
RETURN 
CALL C 


N+SN 


LEAR 
ti UN PROGRAMMA" 
ori" FRANCOMPUTER"::::1:: 
IT=0 
AIT 
LEAR 
"0000000000000000000000000000000 
000" 
"000 
000" 
"000 ELEZIONI 000000 
000" DOLMLOADED FROM HEHE, TISSIUC.IT 
"0000000000000000000000000000 " 
3:r: "ENTER" 
AA$ 
1 TO 2500 


AGGIORNAMENTO 000000 


LEAR 


000000 


000000 


000000 


1 REM MESSAGGIO CON CARATTERI 

2 REM 

3 REM SCORREVOLI GIGANTI 

4 REM 

5 REM BY FRANCOMPUTER CLUB VICENZA 
6 REM 

7 REM ==========3===3zooosssnnnnnn= 
10 CALL CLEAR 


50 CALL SCREEN(5) 

100 DATA 000103070E1C3830, 0080C0E070381C0C, 30303F3F 303030, OCOCFCFCOCOCOC, 007F7F6 
06060607F, 00E0F038183870E0 

110 DATA 7F606060607F7F, E070381838F0E0, 000F1F3870606060, 00E0F03818, 60606070381F0 
F, 0000001838F0E0 

120 DATA 007F7F6060606060, 00C0E0F078381818, 60606060607F7F, 18183878F0EOCO, 007F7F6 
06060607F, 00F8F80000000080 

130 DATA 7F606060606060, 80, 8000000000F 8F8, 0078781838F0E0, 006060606060607F, 001818 
181818198F8 

140 DATA F8181818181818,0003030303030303, 03030303030303, 006070787C6F6763, 0018387 
8F8D89818, 60606060606060 

150 DATA 18181818181818,006070787C6E5763,0018181818181898,616506060606060, D8F8783 
8181818, 0060506060606060 

160 DATA 60606060607F7F, 0000000000F 8F8, 007F7F0303030303, 0018181818181818, 0060607 
03038181C, 000C0C1C18383070 

170 DATA 0C0E0707030303, 0E0COC0808080, 007F7F0000000003, 00F8F8181838F0C0, 0F3C706 
0607F7F, 0003070E1C1C0F03 

180 DATA 00FOFBICOC0000C0, 0000181C0E0703, FOZCOEOE1CF8FO, 00606070381C0F07, 0018183 
870E0C080, 070F1F3C787060 

190 DATA 80C0E070381818, 0060606070783C1F, 001818183878F0E0, 0F070303030303, COB0, 00 
00 

200 DATA CO, 1818D87870E0D8, 00F8F8 

210 DATA 96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,102 
,116,112, 113,114, 115 

220 DATA 104,105,106,117,118,119,114,120,121,155,122,155,121,155,122,155,155,155 
s 155, 155, 131, 155, 132, 133 

230 DATA 123,124,125,126,127,128,129,130,104,109,106,111,100,101,114,156,104,109 
,106, 157,100, 101,114, 150 

240 DATA 143,144, 145, 146, 134, 159, 122, 155, 131,135,106,111,136,137,138,139,136,155 
, 155,155, 147,148, 149, 150 

250 DATA 151,152,153,154,140,141,142,133, 155,155, 155,155 





260 REM 490 COLS=16 

270 REM DEFIN.CARATTERI 500 REM ROUTINE DI STAMPA 

280 FOR I=l TO 635 510 FOR I=9 TO 16 

290 READ X$ 520 CALL COLOR(I,COLC,COLS) 

300 CALL CHAR(95+I,X$) 530 NEXT I 

310 NEXT I 540 FOR C=1 TO LEN(MSG$) 

320 REM COSTRUZ.MATRICE 550 CODE=ASC(SEG$(MSG$,C,1)) 

330 OPTION BASE 1 560 PTR=CODE-64 

340 RESTORE 210 570 IF PTR>=1 THEN 590 

350 DIM MX(27,4) 580 PTR=PTR+59 

360 FOR A=1 TO 27 590 CALL HCHAR CROW, COL, MX (PTR,1)) 
370 FOR V=1 T0 4 600 CALL HCHAR(ROW,COL+1,MX(PTR,2)) 
380 READ X 610 CALL HCHAR(ROW+1,COL,MX(PTR,3)) 
390 LET MX(A,V)=X 620 CALL HCHAR(ROW+1,COL+1,MX(PTR,4)) 
400 NEXT V 621 CALL SOUND(100,550,0) 

4,0 NEXT A 630 IF COL<28 THEN 670 

420 REM ROUTINE ENTRY:MSG$ ROW, COL, COLC, COLS 


430 REM VALORI DI DEFAULT: 
440 INPUT "MESSAGGIO ? ":MS6$ 550 ROW=ROW+2 
450 CALL CLEAR 6560 GOTO 680 
460 ROW=1 670 COL=COL+2 


470 COL=3 680 NEXT C 
ladini 590 GOTO 450 


640 COL=3 


10 REM 


£E 


FRANCOMPUTER 


100 CALL CLEAR 


110 
120 
1350 
140 


PRINT 
PRINT 
PRINT 
PRINT 


mestre)" 


150 
160 
170 
180 
190 
200 
210 


PRINT 
INPUT 
CALL 

PRINT 
INPUT 
PRINT 
PRINT 


sE DICHIARAZIONE IVA 


copyright 1983":: 


FRANCOMPUTER":: 
" VERSAMENTI ENTRO IL" 


= 


" 5 novembre(iii trimestre)":" 5 marzo 
PREMI ENTER":W$ 


CLEAR 


"CORRISPETTIVI COMPLESSIVI":: 


"L.? " 


di ACQUISTI COMPLESSIVI 


a iva)"::: 


220 
230 


INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 


"MERCE 


"MERCE 


"MERCE 


"MERCE 


"MERCE 


a TC 


10%? 


189%? 


39%? 


"aM2 


":M8 


"sMio 


":M18 


"1M38 


TA=M2+M8+M10+M18+M38 


PRINT 
PRINT 
INPUT 
IF P$ 


REM 


-------- "ss "TOTALE L."iTA 


"VA BENE (S/N) ":P$ 
="S" THEN 370 ELSE 200 
REM »*CALC.VENTILAZIONE* 
P2X=(M2/TA*100) 
PBX=(M8/TA*100) 
PIOX=(M10/TA#*100) 
P18X=(M18/TA*100) 
P38X=(M38/TA*100) 
**ARROTONDAMENTO** 

DEF PSB=INT(P8X#100+0.5)/100 
DEF P2=INT(P2X#100+0.5)/100 
DEF PIO=INT(P10X#100+0.5)/100 
DEF PIB=INT(P18X#100+0.5)/100 
DEF P38=INT(P38X#100+0.5)/100 
V2X={(TC/100*P2) 
VBX={(TC/100#P8) 
VIOX=(TC/100#*P10) 
V18X=(TC/100#P18) 
V389X= (TC/100*P39) 
DEF V2=INT (V2X+0.5) 
DEF VB=INT(V8X+0.5) 
DEF VIO=INT(V10X+0.5) 
DEF VISB=INT(V18X+0.5) 
DEF V38=INT(V38X+0.5) 
V2Y=V2/102#*100 
V8Y=V8/108*100 
VIOY=V10/110*100 
V18Y=V18/118#100 
V358Y=V39/1358*100 
DEF V2Z=INT(V2Y+0.5) 
DEF VS8Z=INT(V8Y+0.5) 
DEF VIOZ=INT(VIOY+0.5) 
DEF VI1B8Z=INT(VI8Y+0.5) 


CLUB TEXAS VICENZA 


[4 


" 5 maggio (I trimestre)":" 5 luglio (ii tri 


(iv trim.e saldo)"::::: 


i sseluluelaa His" {(compres 


670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
gi0 
820 
830 
840 


DEF V38Z=INT(V38Y+0.5) 
I2X=V27#*0.02 
IBX=V87#0.08 
I1OX=VIOZ#0.10 
I118X=V187+*0.18 
I358X=V397+0. 38 

DEF 1I2=INT(I2X+0.5) 
DEF IB=INT(I8X+0.5) 
DEF I1O=INT(I10X+0.5) 
DEF I18=INT(I18X+0.5) 
DEF IS8=INT(I39X+0.5) 


CALL CLEAR 


PRINT " VENTILAZIONE © = ="=*“x;p------_----- Ù 

TOTV=V2+V8+V10+V18+V38 

TOTZ=V27+V8Z+V107+V187+V387 

TOTI=12+18+110+118+1358 

PRINT :"-corrispettivi-------------- so 

PRINT "2%"3TAB(7)5V2:"84"3TAB(7):V8:"10%"s TAB(7)sV10:"18%"3TAB(7)3V18:"38%": 


TAB (7) 3V38 


850 
860 
8970 
880 
890 
900 


PRINT 1"------------------------_---- ":TAB(7)sTOTV:::11:: 

INPUT "PROCEDO? (S/N) ":P$ 

IF P$="S" THEN 880 ELSE 170 

CALL CLEAR 

PRINT "------------------- iva------ ‘ne 

PRINT "2%"3TAB(5)sV2Z5TAB(18);I2:"8%": TAB(5);V8Z;:TAB(18)sI8:"10%":TAB(5);VI10 


ZiTAB(18)I10 


910 
920 
930 
940 
950 
960 
970 
980 
990 


1000 


PRINT "18%":TAB(5);V18Z:TAB(18);I18:"389%"3TAB(5):V387;TAB(18):I38 


PRINT 1"---_-_-----_------------------- ":TAB(5)3 TOTZ: TAB(18)3 TOTI 
TOTP=P2+P8+P10+P18+P38 

PRINT : "PERCENTUALI ":"2% "iP2:"8% ":P8:"10% "iP10:"18% ":P18: "38% ":P38 
PRINT" = ---__-- ta "5 TOTP 

PRINT :: 

INPUT "PROCEDO? (S/N) ":P$ 

IF P$="S" THEN 990 ELSE 210 

CALL CLEAR 

PRINT " CALCOLO DELL*IVA 0 _——_———__—-- Cesi 


1010 INPUT "IVA A CREDITO? L. ":IVAC 


1020 PRINT 
10350 INPUT "IVA ACQUISTI? L. ":IVAA 
1040 PRINT 
1050 INPUT "IVA ACQ.PREC.? L. ": IVAAP 
1060 PRINT 
1070 INPUT "IVA CESS.PREC.?L. ": IVACP 


10B0 PRINT :: 


1090 
1100 


TOTA=TOTI-IVACP 
IVAX=IVAA-IVAAP 


1110 IVA=TOTA-IVAX-IVAC 
1120 CALL CLEAR 


11350 


PRINT :" © DICHIARAZIONE IVA --------------—- "ssi: 


1140 PRINT :"IVA PER CESS. L. "sTOTA 


1150 


PRINT :"IVA PER ACQU. L. "s IVAX 


11650 PRINT :"IVA A CREDITO L. "s IVAC 


1170 


PRINT" ==>". "::"IVA DA VERSARE L."s IVA 


1180 PRINT ::::: 


1190 


INPUT "premi ENTER per finire ":W$ 


10 
il 
12 
13 
14 
15 
16 
20 
25 
27 
30 
1) 
35 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 


REM CONTABILITA” DI UNA ASSOCIAZIONE 
REM MODIFICABILE PER VARI USI 


REM ATTENZIONE ALLE DIM E MODIFICARE 
REM QUALORA SI VADA USARE IL DRIVE 


OPTION BASE 1 
DIM U(11),V(11) U1(11),V1(11),D(11),D$(11),F2(11) ,F2$(11) ,F3(11) ,F3$(11),Q1(1 


DIM F4(11),F5(11),F6(11),G(11),HC11),IC(11),M(11),N(11),0(11) ,P(11),P1(11) 
DIM P2(11),P3(11),P4(11),R(11),T1(11),T2(11),T3(11),T4(11),F(11) 
GOTO 410 
CALL KEY(0,A,B) 

IF B=0 THEN 60 
A=A-48 

IF A<O THEN 60 

RETURN 

CALL CLEAR 

IF S<>}1 THEN 210 

OPEN £1:"CS1", INTERNAL, OUTPUT, FIXED(192) 

PRINT £1:K1$,C 

FOR X=i TO C 

PRINT ::"STO SCRIVENDO IL BILANCIO"::"MESE "sX5", ATTENDERE, PREGO. ":: 

PRINT £1:K$ (0) UO) ULOO  VOO,VI OO, WHO), C$(X) DX), D$E(X),Q1(X) ,F2(X),F2$(X 


) ,F3(X) ,F3$(X),F4(X),F50X) 


175 
Xx), 
180 
190 
200 
210 
220 
25 
240 
250 
260 
270 
280 
290 
300 
).F 
302 
Xx), 
Sio 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
4650 
470 


PRINT £1:F6(X),G(X),H(X)}, IX), MX) NK), 0C(X) PX) ,P10X) ,P2(X) ,P3(X) ,P4(X),RC 
T1(X),T2(X),T3(X),T4(X) F(X) 

NEXT X 

CLOSE £1 

CALL CLEAR 

RETURN 

CALL CLEAR 

IF S=1 THEN 360 

OPEN £1:"CS1", INTERNAL, INPUT ,FIXED(192) 

INPUT £1:K1$,C 

PRINT ::L$:: "CONTABILITA" :"35K1%$ 

PRINT : "MESI INSERITI :"3C::L$ 

FOR X=1 TOC 

PRINT ::"STO LEGGENDO IL BILANCIO"::"MESE"sX:",ATTENDERE,PREGO.":: 
INPUT £1:K$(X),U(X) UIL (X), V(X) VI (X),W(X) ,C$(X),D(X),D$(X) ,Q1(X),F2(X),F2$(X 
3(X),F3$(X),F4(X) ,F50X) 

INPUT £1:F60X),600) HO), IX) MO) NO) OX) POX)PLO(X) ,P2(X) ,PIX) P4(X) RC 
TL (X),T2(X),T3(X) ,T4(X) ,F(11) 

NEXT X 

X=X-1 

CLOSE £1 

CALL CLEAR 

S=1 

RETURN 

CALL CLEAR 

PRINT L$:" CONTABILITA ASSOCIAZIONE" 

PRINT L$::::: 

RETURN 

GOSUB 370 

PRINT "O FINE LAVORO"::"1 CREAZIONE CONTABILITA":: 

PRINT "2 AGGIORNAMENTO CONTABILITA": 1rrrrrir:o 

GOSUB 60 

IF A>2 THEN 440 

IF A=0 THEN 2080 

IF Z=1 THEN 490 


480 IF A=1 THEN 600 
490 IF A=1 THEN 440 

500 Z=1 

510 GOSUB 370 

S20 PRINT "O QUADRO PRINCIPALE"::"1 INSERIMENTO DATI"!: 
540 PRINT "2 VISUALIZZAZIONE DATI":::::: (37 Pi (pazzo 


3350 GOSUR 60 796 IF P1(X)=-1 THEN 782 


Se IF A=0 THEN 410 798 PRINT L$: "GRAFICA E STAMPA ATTIVITA”"":: 
3570 IF A>2 THEN 550 800 GOSUB 2500 


si CALL CLEAR 3 802 P2(X)=Z20 

+. nata Ana Ii SEN 804 IF P2(X)=-1 THEN 790 

0 . 806 PRINT L$: "TRASFERTE ATTIVITA" ":: 
619 CALL CLEAR 808 GOSUB 2500 

615 INPUT "NOME SCHEDARIO? ":K1$ GIO P3IXIAID0 


620 X=1 812 IF P3{(X)=-1 THEN 798 


625 F(X)=X 814 PRINT L$: "COMPENSO Ung 
530 PRINT "MESE ?" È cab 
3 3 816 GOSUB 2500 


640 INPUT SESSO si 818 P4(X)=Z20 
660 PRINT L$: "QUOTE ASSOCIATIVE":: 820 IF P4(X)=-1 THEN 806 


965 BOSUB 2500 822 PRINT L$:"RAPPR.E OSPITALITÀ” ATT.":: 


667 U(X)=Z20 i 
; di 824 GOSUB 2500 
570 INPUT "NUMERO QUOTE ?":U1(X) 2% RIXnT90 


675 IF U1(X)=-1 THEN 615 
a Li 828 IF R(X)=-1 THEN 814 
680 PRINT L$: "QUOTE ISCRIZIONE": DL E 


Id ne, 
685 GOSUB 2500 842 PRINT L$:" = USCITE ASSOCIAZIONE":L$::::: 


697 V(X)=Z20 
"i x 848 PRINT L$: "AFFITTO SEDE #":: 
690 INPUT "NUMERO QUOTE P"iV1(X) 849 INPUT F4(X) 


700 IF V1(X)=-1 THEN 660 
o .. [850 IF F40)=-1 THEN 822 
710 PRINT L$: "CONC. SPAZI PUBBL. ASSOC. "::[925 BRINT LS: "GESTIONE © PUL. SEDE "i: 
715 GOSUB 2500 i 
a Li 
si Eur wo C$ (x) ESSICI29 
730 IF C$(X)="-1" THEN 680 PIZZI WENSIO 
732 PRINT L$: "CONC. SPAZI PUBBL.ATTIVITA"":: 
734 GOSUB 2500 
735 F3(X)=Z20 
36 INPUT "WHO?":F3$(X) 
739 IF F3$(X)="-1" THEN 710 
740 PRINT L$: "FINANZIAMENTI (P=PUBBLICI) " 
741 PRINT " (PR=PRIVATI)":" CA=ATT.LIB.)": 
745 GOSUB 2500 
747 D(X)=Z20 
750 INPUT "WHO?":D$(X) 
752 IF D$(X)="-1" THEN 732 
754 PRINT L$: "CONSULENZE": : 
756 GOSUB 2500 
758 F2(X)=Z20 
760 INPUT "WHO?":F2$(X) 
762 IF F2$(X)="-1" THEN 740 
764 PRINT L$:"INTERESSI BANCARI": 
766 GOSUB 2500 
768 Q1(X)=Z20 
770 IF Q1(X)=-1 THEN 754 
772 CALL CLEAR 
773 PRINT L$:" USCITE ATTIVITA” ":L$r::1: 
774 PRINT L$: "SEGRETERIA ATTIVITA” ":: 
776 GOSUB 2500 
778 0(X)=Z20 
780 IF 0(X)=-1 THEN 764 
782 PRINT L$: "MATERIALE DIDATTICO": : 
784 GOSUB 2500 
786 P(X)=Z20 
788 IF P(X)=-1 THEN 773 
790 PRINT L$: "AFFITTO SEDI ATTIVITA?":: 
792 GOSUB 2500 





























857 INPUT "---------------------------- AIM * ":F6(X) 
859 IF F6(X)=-1 THEN 852 

860 INPUT "---------------------------- ENEL * ":6(X) 

861 IF G(X)=-1 THEN 857 

864 PRINT L$: "SIP #":: 

865 INPUT H(X) 

867 IF H(X)=-1 THEN 860 

868 PRINT L$: "SEGRETERIA D.M.":: 

869 GOSUB 2500 

870 I(X)=Z20 

871 IF I(X)=-1 THEN 864 

872 PRINT L$: "GRAFICA E STAMPA DM #":: 

873 INPUT M(X) 

874 IF M(X)=-1 THEN 868 

875 PRINT L$:"RAPPR.E OSPITALITA" D.M.":: 

876 GOSUB 2500 

877 N(X)=Z20 

878 IF N(X)=-1 THEN 872 

880 INPUT "IL DATO E" CORRETTO ? (S/N) ":A3%$ 

882 IF A3$="N" THEN 875 

895 T2(X)=F4(X)+F5(X)+F6(X)+G(X)+H(X)+I(X)+M(X)+N(X) 

896 T1(X)=U(X)+V(X)+W(X)+D(X)+F2(X)+F3(X)+D1(X) 

897 T3(X)=0(X)+P(X)+P1(X)+P2(X)+P3(X)+P4(X)+R(X) 

898 T4(X)=T1(X)-(T2(X)+T3(X)) 

900 CALL CLEAR 

902 PRINT "ENTRATE DM MESE DI "5K$(X):L$:"Q.ASS.":TAB(10)5U(X)5TAB(17)sU1(X): "0. 
ISCR"5TAB(10)5V(X)5TAB(17)5V1(X) 

903 PRINT "SP.P.DM."sTAB(10):W(X)3TAB(18)5C$(X):"SP.P.ATT."53F3(X);TAB(18);F3$(X) 
» "FINANZ.  "sD(X):TAB(3)5D$(X) 

905 PRINT "CONS. "sTAB(10);F2(X)sTAB(18)5F2$(X):"INT.BAN.":TAB(10)Q1(X):L$: "TOT. 
ENTR. DM "sT1(X) 

906 BREAK 

907 CALL CLEAR 

908 PRINT L$: "USCITE D.M.":L$:: "AFFITTO": TAB(15)5F4(X):"GEST.E PUL."sTAB(15);F5( 
XY): "AIM"; TAB(15)5F6(X) 

910 PRINT "ENEL"s TAB(15)5G(X):"SIP"s TAB(15)5H(X): "SEGRETERIA"sTAB(15)sI1(X):"GRAF 
.E STAMPA" TAB(15)sM(X) 

912 PRINT "RAPPR. E OSP. "sTAB(15)5N(X):L$: "TOTALE USCITE D.M. "5T200 

914 BREAK 

916 CALL CLEAR 

918 PRINT L$: "USCITE ATTIVITA” ":L$: "SEGRETERIA": TAB(15)50(X): "MAT. DIDATT. "35TAB(1 
5) sP(X) 

919 PRINT "AFFITTO SEDI"s TAB(15);P1(X) 

920 PRINT "GRAF. E STAMPA"s TAB(15)5P2(X):"TRASFERTE"sTAB(15)5P3(X): "COMP. REL." 
TAB(15)5P4(X) 

922 PRINT "RAPPR.E OSP. "5TAB(15);R(X):L$: "TOTALE USCITE ATT. "sT3(X) 

924 PRINT 

926 PRINT 

928 PRINT L$: "BILANCIO DEL MESE DI ":K$(X):T4(X):L$ 

932 PRINT L$:"VA BENE? (S/N) " 

934 GOSUB 60 

936 IF A<>35 THEN 660 

937 PRINT L$: "ALTRI BILANCI ? (S/N) " 

938 GOSUB 60 

939 IF A<>35 THEN 970 

950 X=X+1 

960 GOTO 625 

970 C=X 

980 S=1 

990 T=1i 

1000 Z=1 

1010 GOTO 410 

1020 REM **#*IN.PROC. INSER. ** 

1030 GOSUB 220 

1040 T=1 


1050 GOTO 950 

1710 REM *#IN.PROC.VIS.** 

1720 GOSUB 220 

17350 CALL CLEAR 

1740 PRINT L$:" VISUALIZZAZIONE DATI" 

1750 PRINT L$:::t: 

1750 PRINT "O QUADRO PRINCIPALE"::"1 RICERCA FER MESE":: 

1770 PRINT "2 RICERCA PER CODICE"::"30 VIS. TOTALE":::r:ist:i 

1780 GOSURB 60 

1790 IF A>3 THEN 1780 

1800 IF A=0 THEN 410 

1810 ON A GOTO 1820, 3000, 1960 

1820 CALL CLEAR 

1830 INPUT "MESE DA VISUALIZZARE ? ":Y 

1840 IF Yc=0 THEN 1820 

1850 IF Y>C THEN 1730 

1860 GOSUB 2000 

1870 GOTO 1820 

1960 FOR Y=1 TOC 

1970 GOSUB 2000 

1980 NEXT Y 

1990 GOSUB 1730 

2000 CALL CLEAR 

2002 PRINT "ENTRATE DM MESE DI "sk${(Y):L$:".ASS":TAB(10)3U(Y)sTAB(17)sU1(Y): "0. 
ISCR"3TAB(10)3V(Y)sTAB(17)sVI(Y) 

2003 PRINT "SP.P.DM":TAB(10):W{Y)TAB(18):C$(Y):"SP.P.ATT."3F3(Y)sTAB(18):F3$(Y) 
2004 PRINT "FINANZ. —"5D(Y):TAB(3)5D$(Y) 

2005 PRINT "CONS. ":TAB(10)sF2(Y)sTAB(18);F2$(Y):"INT.BAN.":TAB(10)3Q1(Y):L$: "TOT 
» ENTR.DM "sT1(Y) 

2006 BREAK 

2007 CALL CLEAR 

2008 PRINT L$: "USCITE D.M.":L$::"AFFITTO"s TAB(15);F4(Y):"GEST.E PUL.":sTAB(15):F5 
(Y) "AIM": TAB(15);F6(Y) 

2010 PRINT "ENEL": TAB(15) ;G(Y): "SIP": TAB(15)sH(Y): "SEGRETERIA": TAB(15)sI(Y): "GRA 
F.E STAMPA": TAB(15)sM(Y) 

2012 PRINT "RAPPR.E OSP. ":TAB(15)sN(Y)::L$: "TOTALE USCITE D.M. "siT2(Y) 

2014 BREAK 

2016 CALL CLEAR 

2018 PRINT L$: "USCITE ATTIVITA” ":L$: "SEGRETERIA": TAB(15):0(Y):"MAT.DIDATT.":TAB( 
15) sP(Y) 

2019 PRINT "AFFITTO SEDI":TAB(15);P1(Y) 

ZOZ0 PRINT "GRAF.E STAMPA": TAB(15);5P2(Y): "TRASFERTE "s TAB(15)sP3(Y):"COMP.REL.": 
AB{15)P4(Y) 

2022 PRINT "RAPPR.E OSP": TAB(15)sR(Y):L$: "TOTALE USCITE ATT. "iT3(Y) 

2024 PRINT 

2026 PRINT 

2028 PRINT L$: "BILANCIO DEL MESE DI ":k$(Y):T4(Y):L$ 

2030 PRINT ::L$:L$ 


2035 PRINT "PREMI O PER USCIRE" 2550 INPUT 25 

2040 PRINT "UN TASTO PER CONTINUARE" 2555 IF Z5=0 THEN 2740 
2050 GOSUB 60 2560 INPUT Z6 

2060 IF A=0 THEN 1710 2565 IF Z6=0 THEN 2725 
2070 RETURN 2570 INPUT 27 

2080 IF T=0 THEN 2100 2575 IF 27=0 THEN 2745 
2090 GOSUB 110 2580 INPUT Z8 

2100 END 2585 IF Z8=0 THEN 2727 
2500 REM +##*#*#*CALCOLO DATT#+44444% 2590 INPUT Z9 

2505 REM 2595 IF Z9=0 THEN 2750 
2510 INPUT Zi 2597 PRINT "ULTIMO DATO" 
2515 IF Zi=0 THEN 2839 2600 INPUT Z10 

2520 INPUT Z2 2605 IF Z10=0 THEN 2729 
2525 IF Z2=0 THEN 2721 2610 GOTO 2729 

2530 INPUT Z3 2721 LET Z20=Z1+22 

2535 IF Z3=0 THEN 2735 2722 GOTO 2840 

2540 INPUT Z4 2723 LET Z20=Z1+Z2+Z3+Z4 
2545 IF Z4=0 THEN 2723 2724 GOTO 2840 


2725 LET Z20=71+2Z2+73+24+Z5+Z6 

2726 GOTO 2840 

2727 LET Z20=Z1+Z2+23+24+25+26+77+178 

2728 GOTO 2840 

2729 LET Z20=71+Z2+Z3+Z4+Z5+Z6+77+18+79+Z10 
2730 GOTO 2840 

2735 LET Z20=Z1+Z2+Z5 

2737 GOTO 2840 

2740 LET Z20=Z1+72+Z3+24+25 

2742 GOTO 2840 

2745 LET Z20=Z1+72+Z3+24+Z5+2Z6+27 

2747 GOTO 2840 

2750 LET Z20=71+72+Z3+24+25+Z6+77+28+29 
2752 GOTO 2840 

2839 Z20=0 

2840 PRINT 220 

2850 RETURN 

3000 REM *** VISUAL. ### 

3010 CALL CLEAR 

3020 PRINT "*#**#*#*QUADRO DEI CODICI****" 
3050 PRINT "----- ENTRATE-------------- 's"1 QUOTE ISCR.ASS.":"2 QUOTE ISCR.AT 
T.":"53  NUM.ISCR.ASS" 

3060 PRINT "4 NUM.ISCR.ATT.":"S5S = FINANZIAMENTI":"& TOTALE ENTRATE" 


3110 PRINT "----- USCITE ASSOCIAZIONE--":"7 GEST.E PUL.SEDE" 
31720 PRINT "8 SEGRETERIA":"9  RAPPR.E OSP.":"10 TOT.USCITE ASS." 
31350 PRINT "----- USCITE ATTIVITA" ---_- ":"i11 SEGRETERIA":"12  MAT.DIDATTICO":"15 


AFF.SEDI":"14 GRAF.E STAMPA " 
3140 PRINT "15 COMP.REL.":"16  RAPPR.E OSP.":"17  TOT.USCITE ATT.":"18 BILANCI 
O COMPLESSIVO" 

3150 INPUT "N.CODICE? ":A1 

3160 IF AI>18 THEN 3010 

3200 ON AI GOTO 3550, 3650,3765,3805, 3945, 3925, 4125, 4285,4365, 4405, 4445, 4485, 4525 
,4565,4645, 4685, 4725, 4755 

3550 CALL CLEAR 

3600 PRINT L$: "TOTALE QUOTE ASS.":L$ 

3610 FOR Y=1 TO 10 

3620 J(Y)=U(Y) 

3630 GOSUB 6000 

3635 NEXT Y 

3640 GOTO 6010 

3650 CALL CLEAR 

3655 PRINT L$: "TOTALE QUOTE ATTIVITA” ":L$ 
3674 FOR Y=1 TO 10 

3675 J(V)=VIY) 

3685 GOSUB 6000 

3690 NEXT Y 

3695 GOTO 6010 

3765 CALL CLEAR 

3770 PRINT L$: "NUMERO DI ISCRITTI ASS. ":L$ 
3775 FOR Y=i TO 10 

3780 J(Y)=U1L(Y) 

3800 GOSUB 6000 

3802 NEXT Y 

3804 GOTO 6010 

3805 CALL CLEAR 

3910 PRINT L$: "NUMERO DI ISCRITTI ATT.":L$ 
3825 FOR Y=1 TO 10 

3830 J(Y)=V1(Y) 

3835 GOSUB 6000 

3938 NEXT Y 

3840 GOTO 6010 

3845 CALL CLEAR 


PRINT L$: "FINANZIAMENTI":L$ 
FOR Y=1i TO 10 


J@O=D(1)+D(2)+D(3)+D(4)+D(5)+D(6)+D(7)+D(8)+D(9)+D{10) 


PRINT D(Y)s" "iD$(Y) 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "TOTALE ENTRATE ASS+ATT.":L$ 
FOR Y=1 TO 10 

J{Y)=T1(Y) 

GOSUB 4000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "GESTIONE E PULIZIA SEDE":L$ 
FOR Y=1 TO 10 

J{Y)}=FS(Y) 

GOSUB 65000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "SEGRETERIA ASSOCIAZIONE":L$ 
FOR Y=1 TO 10 
J(Y)=I(Y) 

GOSUB 6000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "RAPPR.E OSP. 
FOR Y=i TO 10 
J{Y)=N(Y) 

GOSUB 6000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "TOTALE USCITE ASSOCIAZIONE":L$ 
FOR Y=1 TO 10 

J(Y)=T2(Y) 

GOSUB 65000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "SEGRETERIA ATTIVITA” ":L$ 

FOR Y=1 TO 10 

J{Y)}=0(Y) 

GOSUB 65000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "MATERIALE DIDATTICO":L$ 

FOR Y=1 TO 10 

J(Y)=P(Y) 

GOSUB 5000 


ASS. ":L$ 


4775 
4780 
4795 
6000 
65004 
6008 


GOSUB 5000 
NEXT Y 

GOTO 6010 
PRINT J{Y) 


RETURN 


4510 
4515 
4525 
4530 


4535 


4540 
4545 
4550 


4555 


4565 
4570 
4575 
4580 
4585 
4590 
4595 
4645 
4650 
4655 
4660 
4665 
4670 
4675 
4685 
46590 
4695 
4700 
4705 
4710 
4715 
4725 
4727 
4730 
4735 
4740 
4745 
4750 
4755 
4760 
4765 
4770 


NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "AFFITTO SEDI ATTIVITA” ":L$ 
FOR Y=1 TO 10 

J(Y)=P1(Y) 

GOSUB 65000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$:"GRAF.E STAMPA ATTIVITA" ":L$ 
FOR Y=1 TO 10 

J{Y)=P2(Y) 

GOSUB 6000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "COMPENSO RELATORI":L$ 
FOR Y=1 TO 10 

J{Y)=P4(Y) 

GOSUB 65000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$:"RAPPR.E OSP.ATTIVITA”":L$ 
FOR Y=1 TO 10 

J{Y)=R(Y) 

GOSUB 6000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "TOTALE USCITE ATTIVITA" ":L$ 
FOR Y=1 TO 10 

J(Y)=TI{Y) 

GOSUB 5000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "RILANCIO COMPLESSIVO":L$ 
FOR Y=1 TO 10 

J(Y)=T4(Y) 


JO=J (1) +IJ(2)+3J(3)+3(4)+J(5)+J(6)+J(7)+J(8)+J(9)+J(10) 


6010 
6020 
6030 
6040 
6050 
6060 


PRINT L$:"TOTALE":J0:L$ 
PRINT "ALTRI CODICI? (S/N) " 
GOSUB 60 

IF A=35 THEN 3O10 

T=1 

GOTO 410 


CALL CLEAR 


CALL SCREEN(2) 


CALL CHAR(120, "00183C24243C18") 
CALL CHAR(128, 
CALL CHAR(136, "FFFFFFFFFFFFFFFF") 
"00003C3C3C3C") 
"00003C3C3C3C") 
"00003C3C3C3C") 
CALL CHAR (152, "0018245A5A2418") 
CALL CHAR(153, "0018245A5A2418") 
FOR I=2 T09 


CALL CHAR(144, 
CALL CHAR(145, 
CALL CHAR(146, 


"0000001 ") 


CALL COLOR(1I,16,2) 


NEXT I 


CALL COLOR(12 


a7,16) 


CALL COLOR(13,2,16) 
CALL COLOR(14,16,16) 
CALL COLOR(15,13,16) 
CALL COLOR(16,5,16) 


PRINT TAB(10); 
CALL SOUND (500, 294,0,392,0, 
0, 294,0,392,0,494, 0) 
CALL SOUND(250,392,0,494,0,597,0) 
294,0,349,0,440,0) 


CALL SOUND (25 


CALL SOUND(1000, 


PRINT rr:sr:rrrresso 
FOR I=i TO 100 


NEXT I 
CALL CLEAR 
E=0 


IF C<>146 THEN 390 


E=E+500 
2=13 
S=17 
D=156 
=2 

A=3 

F=5 

=3 

P=0 
Q=250 
FOR I=3 TO 2 


3 STEP 2 


CALL HCHAR (1, 3, 128,29) 


NEXT I 


FOR I=3 TO 31 STEP 2 
CALL VCHAR(4,I,128,19) 


NEXT I 


CALL HCHAR(23,2,144) 


CALL HCHAR (2 


2,3, 32) 


CALL HCHAR(23,4,32) 
CALL HCHAR(13,17,152) 


GOSUB 1110 
GOSUB 1370 


"WÀANDERING”":: 


600 
610 
62 

630 
640 
650 
660 
670 
680 
590 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
82 

830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


GOTO 580 
CALL CLEAR 


A=3 
2=3 
5=32 
FOR I=3 TO 23 STEP 10 
CALL HCHAR(I,3,128,29) 
NEXT I 

FOR I=3 TO 31 STEP 7 
CALL VCHAR(4,I,128,19) 
NEXT I 

FOR I=4 TO 30 STEP 2 
FOR R=4 TO 22 STEP 2 
CALL HCHAR(R,I,128) 
NEXT R 

NEXT I 

FOR I=5 TO 29 STEP 2 
FOR R=5 TO 21 STEP 2 
CALL HCHAR(R,I,128) 
NEXT R 

NEXT I 

CALL HCHAR(23, 2,145) 
CALL HCHAR(22,3,32) 
CALL HCHAR(23,4,32) 
CALL HCHAR(3,32, 153) 
GOSUB 1110 

GOSUB 1370 

GOTO 910 

CALL CLEAR 

D=32 

E=E+P+250 

M=2 

F=3 

G=3 


1000 A=3 
1010 Z=3 

1020 S=32 

1030 FOR I=3 TO 23 

1040 CALL HCHAR(I,3,136,29) 
1050 NEXT I 

1060 CALL HCHAR(23,2,146) 
1070 CALL HCHAR(3,32,153) 
1080 GOSUB 1110 

1090 GOSUB 1370 

1100 GOTO 1080 

1110 CALL JOYST(1,X,Y}) 


1120 IF (X+Y=0)+(X+Y=8)+(X+Y=-8)THEN 1360 1470 CALL GCHAR(M,A,H) 


1130 CALL GCHAR(Z-Y/4,5+X/4,C) 1480 IF H=32 THEN 1540 

1140 IF C=32 THEN 1360 1490 CALL HCHAR (F,6G,D) 

1150 IF C=136 THEN 1190 1500 CALL HCHAR(M,A, 120) 

1150 B=152 1510 IF (H=152)+(H=153)THEN 1570 
1170 P=P+1 1520 F=M 

1180 GOTO 1200 15350 G=A 

1190 B=153 1540 M=F 

1200 CALL GCHAR(Z,5,V) 1550 A=G 

1210 IF Vv=153 THEN 1240 1560 RETURN 

1220 N=136 1570 FOR I=l TO 15 

1230 GOTO 1250 1580 CALL HCHAR(Z,5,136) 

1240 N=32 1590 FOR L=I*220 TO (I+3)&220 STEP 1109 
1250 CALL HCHAR(Z,5,N) 1600 CALL SOUND (-500,L,15-1,4180-L,1) 
1260 Z=Z-Y/4 1610 NEXT L 

1270 S=S+X/4 1620 CALL HCHAR(Z,5,120) 

1280 CALL HCHAR(Z,5,B) 1650 NEXT I 

1290 IF C=120 THEN 1570 1640 CALL CLEAR 

1300 IF P<Q THEN 1360 1650 E=E+P 

1310 IF P*@ THEN 1330 1560 PRINT "IL TUO PUNTEGGIO :":E:: 
1320 CALL HCHAR(23,4,136) 1670 PRINT "RECORD ATTUALE :"sUrssssrii: 
13550 IF C=144 THEN &10 1680 IF EU THEN 1700 

1340 IF C=145 THEN 940 1690 U=E 

1550 IF C=146 THEN 360 1700 PRINT "VUOI GIOCARE ANCORA?":: 
13560 RETURN 1710 PRINT " (J) "srt: 

1570 IF M>Z THEN 1410 1720 CALL KEY{0,K,ST) 

1380 IF M=Z THEN 1420 1730 IF ST=0 THEN 1720 

1390 M=M+t1 1740 IF K=106 THEN 360 

1400 GOTO 1420 1750 CALL CLEAR 

1410 M=M-1 1750 FOR I=2 T09 

1420 IF A>5 THEN 1460 1770 CALL COLOR(I, 2,2) 

1450 IF A=S THEN 1470 1780 NEXT I 

1440 A=A+1 1790 PRINT "SCRITTO DA VON ROLF HEIKAMP" 
1450 GOTO 1470 1800 END 

1460 A=A-1 


MATERIALE DISPONIBILE NEL CLUB 


MANUALE IN ITALIANO;- COME PROGRAMMARE IN ASSEMBLER CON LA MINIMEMORY. ALLEGATA 
LA REFERENZE CARD DELL’EDITOR ASSEMBLER, IL LISTATO DISASSEMBLATORE E 5 LISTATI 
DI PROGRAMMI VARI... .. 0000000000000 res revoneonazeario re sc0icosstIREn 00000121000 
MANUALE ITALIANO EXTENDED BASIC. 190 PAGINE DI TRADUZIONE PER CAPIRE QUESTO FA 
VOLOSO LINGUAGGIO NEI MINIMI PARTICOLARI. ......0. 000000000 
MANUALE TMS 9900, SCHEMI DEL MICROPROCESSORE E TUTTI GLI SCHEMI ELETTRICI DEL 
NOSTRO TI 99, COMPRESO IL BOX, L'ESPANSIONE, IL SINTETIZZATORE ..LIRE .....19.000 
VOLUME -TI 99 COMPUTER- DI TOWSEND IN INGLESE. MOLTO UTILE......LIRE......12.000 
LEZIONI DI EXTENDED BASIC INTERATTIVO.7 PROGRAMMI PIU’ UN GIOCO SU 4 CASSETTE DA 
VEDERSI TUTTE PER IMPARARE A CAPIRE. MOLTI ESEMPI.......c0000rse0LIRE.0000:20.000 
LEZIONI DI BASIC. 8 PROGRAMMI INTERATTIVI SU 4 CASSETTE.........LIRE.....,20.000 
JOYSTICK TEXAS COPPIA... cer 000000 srccecereciecc re reco cccorer 00 00IRE00001:45,000 
LOGO S5S DELLA MONDADORI/LARICCIA CON VOLUME DEDICATO.......... LIRE »209. 000 
ESPANSIONE 32 K IN SCHEDA PER IL BOX PERHIPHERAL.......0r00000 «LIRE ..0.229.000 
ESPANSIONE 32 K PER ALLACCIAMENTO ALLA CONSOLLE DIRETTAMENTE....LIRE.....229,000 
INTERFACCIA 2352 PER COLLEGAMENTO EBTERNO STAMPANTE PARALLELA....LIRE.....240,000 
INTERFACCIA 232 IN SCHEDA PER IL BOX PERIPHERAL........0000000..LIRE.....240.000 
STAMPANTE MANNESMAN 80 COLONNE, 80 CARATTERI SECONDO, BIDIREZIONALE, FOGLIO SINGO 
LO 0 A TRATTORE, FORNITO DI CAVO PER LA RS232 TEXAS. ...000000 0 «LIRE....»780,000 
“CAVETTI PER COLLEGAMENTO REGISTRATORE CONSOLLE. .......00000000 0 «LIRE.0.00:12.000 
MONITOR PRINCE PRANDONI 12 POLLICI FOBFORI VERDI E AUDIO........LIRE.....189.000 
dara GOMMKLOARDED FROM HHE.TISSIUC.IT i 
PER LE RIVISTE -TUTTO TI 99- SONO DISPONIBILI SOLO I NUMERI 3,4,5 INVIARE CON 
VAGLIA ANTICIPATO LIRE 10.000 PER RICEVERLE. NON SPEDIAMO CONTRASSEGNO (COSTA !) 
CHI DESIDERA L'ELENCO GENERALE DEI PROGRAMMI ( 9 FOGLI ) INVIARE LIRE 1500 
NIGNI PROGRAMMA SU CASSETTA SINGOLA COSTA LIRE 5000. NON ORDINATE 1 SOLA CASSETTA 





10 CALL CLEAR 
20 REM FRANCOMPUTER CLUB VICENZA 


30 PRINT TAB(9); "IL ROMPICAPO":TAB(9);"----------- "::TAB(14)s "DEL":TAB(14);"---" 
::TAB(13)s "CUBO": TAB(13)5"----":: ssd coso sad 

40 FOR J=1 T0 2 95 3 3 

SO IA=200 2040 FOR K=0 TO 2 


2050 A(K,15)=A(3+K,8) 
2060 A(K,8)=A(3+K, 18) 
2070 A(K,18)=A(5-K,2) 
2080 A(K,2)=A(5-K,15) 


60 CALL SOUNDCIA,131,0,262,3,523,3) 
70 CALL SOUND(IA,147,0,294,3,587,3) 
80 CALL SOUNDC(IA,131,0,311,3,622,3) 
90 CALL SOUND(IA,156,0,311,3,622,3) 


100 CALL SOUND(IA,131,0,294,3,587,3) FORO NERI K 
110 CALL SOUND(IA,156,0,294,3,587,3) 2100 RETURN 
120 CALL SOUND(IA*2,131,0,262,3,523,3) 2110 REM D+ 
130 REM INIZIO 2120 D=12 


21350 GOSUB 3680 

2140 FOR k=0 TO 2 
2150 AC(K,17)=A(3+K,10) 
2160 ACK,10)=A(3+K, 20) 
2170 ACK,20)=A(5-K,0) 
2180 A(K,0)=A(5-K,17) 
2190 NEXT K 

2200 RETURN 

2210 REM D- 

2220 D=12 

2230 GOSUB 3780 

2240 FOR K=0 TO 2 
2250 A(K,17)=A(5-K,0) 
2260 A{K,10)=A(3+kK,17) 
2270 AC(K,20)=A(3+K,10) 


140 CALL SOUNDCIA,156,0,262,3) 
150 CALL SOUNDCIA, 123,0, 294,3) 
150 CALL SOUND(IA,131,0,311,3) 
170 CALL SOUND(IA,156,0,392,3) 
180 CALL SOUNDCIA,131,0,294,3) 
190 CALL SOUND(IA,156,0,311,3) 
200 CALL SOUND(IA*2,131,0,262,3) 
210 NEXT J 

220 DIM A(5,20) 

230 A$="007E7E7E7E7E7E00" 

240 CALL CHAR(144,A$) 

250 CALL CHAR(136,A$) 

260 CALL CHAR(128,A$) 

270 CALL CHAR(120,A$) 

280 CALL CHAR(112,A$) 


290 CALL CHAR(104,A$) snian A(K,0)=A(S-K, 20) 
300 CALL CHAR(96,A$) i NEXT K 
310 CALL COLOR(15,14,2) 2300 RETURN 


2310 REM ££EGIOCOLE 
2320 GOSUB 4530 
2330 CALL HCHAR(2, 13,96) 


320 CALL COLOR(14,7,2) 
350 CALL COLOR(13,13,2) 
340 CALL COLOR(12,5,2) 


dial dii 2340 CALL HCHAR(4,13,128) 
360 CALL COLOR(10,11,2) 23550 GOSUB 3460 

370 CALL COLOR(9, 2,2) 2560 X=KEY ) 

380 PRINT :::"PER LE ISTRUZINI PREMI S/N" 2370 CALL KEY(0,K,5) 
PAIS 2380 IF S<>0 THEN 2370 
Ir 2390 IF X<>83 THEN 2480 


410 REM REGOLE£E£FE££E£ESE 

420 PRINT :::"IL CUBO SI PRESENTA COSI” :":TAB(18);"H"::TAB(14);s"P GA D'::TAB(1 

8);"B" 

430 PRINT "H=FACCIA ALTA"::"P=FACCIA POSTERIORE"::"G=FACCIA SINISTRA"::"A=FACCIA 
ANTERIORE"::"D=FACCIA DESTRA" 

440 PRINT :"B=FACCIA BASSA": :: "PREMI UN TASTO": 

450 GOSUB 3460 

460 PRINT :: "MOVIMENTO: ":"--------- "::"1.UNA FACCIA:"::"-PREMERE LA LETTERA CORR 
IS- FONDENTE, BREVEMENTE, " 

470 PRINT. "_POI + PER GIRARE IN SENSO ORARIO, ":: 

480 PRINT "_E - PER GIRARE IN SENSO CONTRARIO":::: 

490 PRINT " ATTENZIONE :LE LETTERE DEVONO ESSERE MAIUSCOLE.":: "PREMI UN TASTO": 
3500 GOSUB 3460 

510 PRINT ::"2. PER GIRARE IL CUBO:"::"-PREMI C,"::"-POI:"::"FCTN E PER GIRARE A 
sH"::"FCTN X PER A,B"ss: 

3520 PRINT "FCTN S PER A,6"::"FCTN D PER A,D":::::::: "PREMI UN TASTO": 

530 GOSUB 3460 

540 PRINT ::: "ATTENZIONE: PRIMA DI FARE UN MOVIMENTO, ATTENDERE IL COLO RE VERDE D 
EL QUADRATINO POS TO A FIANCO DELLE LETTERE":: 

3550 PRINT "SE E" IN CORSO UNA PARTITA E DESIDERATE REGISTRARE LA SITUAZIONE" 
560 PRINT "FREMERE -S- POI POTRETE RIPRENDERLA QUANDO VOLETE” 

3570 PRINT :::::::: "PREMI UN TASTO" 

3580 GOSUB 3460 


590 PRINT ::::: "SITUAZIONE DI PARTENZA":"---------------------- #":3:::"O=PER RICH 
IAMARE":: 

600 PRINT "P=PER REGISTRARE"::"O=PER INIZIARE"::1111t3: 

6510 GOSUB 3460 

620 B=KEY-78 

630 IF B<1 THEN 590 

640 IF B>3 THEN 590 

6550 ON B GOTO 660,750, 1000 

560 REM CASSETE 

670 OPEN £1:"CS1", SEGUENTIAL, INTERNAL, INPUT ,FIXED 192 

580 INPUT £1:A(0,0),A(0,1),A(0,2),A(0,4),A(0,5),A(0,65),A(0,8),A(0,9),A(0,10),A(0 
,12),A(0,13),A(0,14),A(0,15) 

590 INPUT £1:A(0,16),A(0,17),A(0,18),A(0,19),A(0,20),A(1,0) A(1,1),A(1,2),A(1,4) 
,A(1,5),A(1,6),A(1,8),A(1,9) 

700 INPUT £1:A(1,10),A(1,12),A(1,13),A(1,14),A(1,15),A(1,16),A(1,17),A(1,18),AC1 
,19),A(1,20),A(2,0),A(2,1) 

710 INPUT £1:A(2,2),A(2,4),A(2,5),A(2,6),A(2,8),A(2,9) ,A(2,10),A(2,12),A(2,13),A 
(2,14),6(2,15),A(2,16),A(2,17) 

720 INPUT £1:A(2,18),A(2,19),A(2,20),C 

730 CLOSE £1 

740 GOTO 2310 

750 REM PARTENZA PROGRAMMA 1200 RETURN BRA 


L 1510 REM A+ 
760 GOSUB 4280 F210:RER di 1550 dea 
e 1220 D=15 20 D= 
Acea 1230 GOSUB 3780 1530 GOSUB 3680 
i. 1240 FOR K=4 TO 14 1540 FOR K=0 TO 2 
"pi 1250 AC(0,K)=A(3,K-4) 1550 A(2, 15+K)=A(5-K,6) 
cn STA SA 1250 NEXT K 1560 ACK,12)=A(5,15+K) 
5a Cagna ist 1270 FOR K=0 TO 2 1570 ACO, 18+)=A(5-K, 12) 
= Led 1280 ACO,K)=A(3,K+12) 1580 A(K,6)=A(3,18+K) 
830 GOSUB 3620 “ 
5 1290 NEXT K 1590 NEXT K 
40 GOSUB 1910 1300 RETURN 1600 RETURN 
850 GOSUB 3620 » 5 
1310 REM B+ 1610 REM A 
860 GOSUB 1510 _.- E 
870 GOSUB 3620 1320 D=18 1620 D=8 
S60 COGne ord 1330 GOSUB 3680 1630 GOSUB 3780 
ge 1340 FOR K=4 TO 14 1640 FOR K=0 TO 2 
Sad. GOStG op 1350 A(2,K)=A(5,K-4) 16550 A(2, 15+K)=A(3+K, 12) 
ssi 1360 NEXT K 1660 A(K,12)=A(3,20-K) 
So Goene IRIS 1370 FOR K=0 TO 2 1670 AC(0,18+k)=A(3+K,6) 
23 > 1380 A(2,K)=A(5,K+12) 1680 A(K,6)=A(5,17-K) 
930 GOSUB 3620 2 TI ; 
dine een 1390 NEXT K 1690 NEXT K 
> + 1400 RETURN 1700 RETURN 
950 GOSUB 3620 
1410 REM B- 1710 REM P+ 
lidi 1420 D=18 1720 D=0 
T49 
#6 Res i 1430 GOSUB 3780 1730 GOSUB 3680 
#00 BOTA 530 1440 FOR K=0 TO 10 1740 FOR K=0 TO 2 
ld 5 = [DA i“) T4k° 
1000 REM PARTENZA QUALSIASI = 1450 A(2,10) =A(5,K+4) 1750 ACO, 15+K)=A(3+K, 14) 
ira cia Dee, 1460 NEXT K 1760 A(K,14)=A(5,20-K) 
[GOG GALU Rest 1470 FOR K=12 TO 14 1770 A(2,18+kK)=A(3+K,4) 
030 FOR Nato i6 1480 A(2,K)=A(5,K-12) 1780 A(K,4)=A(3,17-K) 
> * 1490 NEXT K 1790 NEXT K 


1040 RANDOMIZE 
1050 F=INT(12#*RND)+1 

1060 ON F GOSUB 1110,1210,1310,1410,1510,1610,1710,1810,1910,2010,2110,2210 
1070 GOSUB 3620 


1080 NEXT M 1800 RETURN 1910 REM Gt+1 

1090 GO0SUB 3500 1810 REM P- 1920 D=4 

1100 GOTO 2330 1820 D=0 1950 GOSUB 3680 

1110 REM H+ 1830 GOSUB 3780 1940 FOR K=0 TO 2 
1120 D=15 1840 FOR K=0 TO 2 1950 A(K,15)=A(5-K,2) 
1130 GOSUB 3680 1850 A(C0,15+K)=A(5-K,4) 1960 A(K,8)=A(3+K,15) 
1140 FOR K=0 TO 10 1850 A(K,14)=A(3,15+K) 1970 A(K,18)=A(3+K,8) 
1150 AC(0,K)=A(3,K+4) 1870 A(2,18+K)=A(5-K,14) 1980 ACK,2)=A(5-K,18) 
1150 NEXT K 1880 A(K,4)=A(5,18+K) 1990 NEXT K 

1170 FOR K=12 TO 14 1890 NEXT K 2000 RETURN 

1180 A(0,K)=A(3,K-12) 1900 RETURN SO10 REM 6G- 

1190 NEXT K 2020 D=4 


VEDI tizio 


2400 OPEN £1:"CS1", SEQUENTIAL, INTERNAL, OUTPUT, FIXED 192 

2410 PRINT £1:A(0,0),A(0,1),A(0,2),A(0,4),A(0,5),A(0,6),A(0,8),A(0,9),A(0,10), AC 
0,12),A(0,13) ,A(0,14) ,A(0,15) 

2420 PRINT £1:A(0,16),A(0,17),A(0,18) , A(0,19) ,A(0,20),A(1,0),A(1,1), A(1,2),A(1,4 
),A(1,5),A(1,6),A(1,8),A(1,9) 

2430 PRINT £1:A(1,10),A(1,12),A(1,13),A(1,14),A(1,15),A(1,16),A(1,17) ,A(1,18),0( 
1,19) ,A(1,20),A(2,0),A(2,1) 

2440 PRINT £1:A(2,2),A(2,4) ,A(2,5),A(2,6),A(2,8),A(2,9),A(2,10),A(2,12),A(2,13), 
A(2,14),A(2,15),A(2,16),A(2,17) 

2450 PRINT £1:A(2,18),A(2,19),A(2,20),C 

2460 CLOSE £1 


2470 END 2850 IF Y=45 THEN 2870 3220 C=C+1 

2480 CALL KEY{0,CLE,ST) 2860 IF Y<>47 THEN 2330 3230 GOSUB 3500 
2490 IF ST=0 THEN 2480 2870 GOSUB 1810 3240 V=0 

2500 CALL SOUND(1,500,0) 2880 GOTO 3210 3250 GOSUB 4450 
2510 Y=CLE i 2890 IF Xx>71 THEN 2980 3260 V=4 

2520 GOSUB 4400 2900 IF Y=43 THEN 2920 3270 GOSUB 4459 
2530 IF Xx>72 THEN 2620 2910 IF Y<e>61 THEN 2940 3280 V=8 

2540 IF Y=43 THEN 2560 2920 GOSUB 1910 3290 GOSUB 4450 
2550 IF Y<{>61 THEN 2580 2930 GOTO 3210 3300 V=12 

25650 GOSUB 1110 2940 IF Y=45 THEN 2960 3310 GOSUB 4450 
2570 GOTO 3210 2950 IF Y<>47 THEN 2330 3320 V=18 

2580 IF Y=45 THEN 2600 2960 GOSUB 2010 3330 GOSUB 4450 
2590 IF Y<>47 THEN 2330 2970 GOTO 3210 

2600 GOSUB 1210 2980 IF X<>68 THEN 3070 

2610 GOTO 3210 2990 IF Y=43 THEN 3010 

2620 IF X€>66 THEN 2710 3000 IF Y<>61 THEN 3030 

2630 IF Y=43 THEN 2650 3010 GOSUB 2110 

2640 IF Y<>61 THEN 2670 3020 GOTO S210 

2650 GOSUB 1310 3030 IF Y=45 THEN 3050 

2660 GOTO 3210 3040 IF Y<>47 THEN 2330 

2670 IF Y=45 THEN 2690 3050 GOSUB 2210 

2680 IF Y<>47 THEN 2330 3060 GOTO 3210 

2690 GOSUB 1410 3070 IF X<>67 THEN 2330 

2700 GOTO 3210 3080 IF Y<>11 THEN 3110 

2710 IF X<>65 THEN 2800 090 GOSUB 3880 

2720 IF Y=43 THEN 2740 Sw GOTO sof 

2730 IF Y<>61 THEN 2760 3110 IF Ye>10 THEN 3140 

2740 GOSUB 1510 3120 GOSUB 3980 

2750 GOTO 3210 3130 GOTO 3190 

2760 IF Y=45 THEN 2780 3140 IF Y<>9 THEN 3170 

2770 IF Y«<>47 THEN 2330 3150 GOSUB 4080 

2780 GOSUB 1610 3160 GOTO 3190 

2790 GOTO 3210 3170 IF Y<>8 THEN 2330 

2800 IF X<>80 THEN 2890 3180 GOSUB 4180 

2810 IF Y=43 THEN 2830 3190 GOSUB 3500 

2820 IF Y<>61 THEN 2850 3200 GOTO 3430 

2830 GOSUB 1710 3210 REM CONTROLLO 


2840 GOTO 3210 


3340 PRINT "SEI RIUSCITO IN"3C; "MOVIMENTI" 

3350 FOR J=1 TO 11 

3360 READ MMM,NNN, 000 

3370 CALL SOUND (MMM, NNN,0,000,0) 

3380 NEXT J 

3390 DATA 125,262,131,125,294,131,250,156,131,250,131,147,250,262,131,100,262,13 
1 

3400 DATA 100,294, 123,100,311,131,100,392,131,100,294,131,100,311,131,125,262,13 
1,200, 131, 262 

3410 CALL SOUND(200,131,0,262,3,523,3) 

3420 END 

3430 GOSUB 3620 

3440 GOTO 2330 


3450 REM SOTTO PROG. INIZIO 4020 A(K,16)=A(5-K, 1) 


3460 CALL KEY(0,KEY,STATUS) 4030 A(K,9)=A(3+K,16) 
3470 IF STATUS=0 THEN 3460 4040 A(K,19)=A(3+K,9) 
3480 CALL SOUND(1,1000,0) 4050 Af{K,1)=A(5-K,19) 
3490 RETURN 4060 NEXT K 

3500 FOR K=0 TO 2 4070 RETURN 

3510 FOR L=15 TO 17 4080 REM C=A-D 

3520 CALL HCHAR(K+8,L,A(K,L)) 4099 GOSUB 1210 

3530 CALL HCHAR(K+16,L,A{K,L+3)) 4100 GOSUB 1310 

3540 NEXT L 4110 FOR K=4 TO 14 
3550 NEXT K 4120 A(1,K)=A(4,k-4) 
3560 FOR K=0 TO 2 4130 NEXT K 

3570 FOR L=0 TO 14 4140 FOR K=0 TO 2 
3580 CALL HCHAR(K+12,L+7,A(K,L)) 4150 AC1,K)=A(4, 12+K) 
3590 NEXT L 4160 NEXT K 

3600 NEXT K 4170 RETURN 

3610 RETURN 4180 REM C=A-G 

3620 FOR K=0 TO 2 4190 GOSUB 1110 

3630 FOR L=0 TO 20 4200 GOSUB 1410 

3640 A(K+3,L)=A(K,L) 4210 FOR K=0 TO 10 
3650 NEXT L 4220 A(1,K)=A(4,4+K) 
3660 NEXT K 4230 NEXT K 

3670 RETURN 4240 FOR K=0 TO 2 
3680 REM MVT+ 4250 A(1,12+K)=A(4,K) 
36590 ACO,D)=A(5,D) 4260 NEXT K 

3700 A(0,D+1)=A(4,D) 4270 RETURN 

3710 A(0,D+2)=A(3,D) 4280 REM CUBO FINITO 


4290 FOR K=0 TO 2 


3720 A(1,D+2)=A(3,D+1) 
4300 FOR L=0 TO 2 


3730 A(2,D+2)=A(3,D+2) 


3740 A(2,D+1)=A(4,D+2) 4310 AC{K,L+15)=144 

3750 A(2,D)=A(5,D+2) 4320 A(K,L+18)=136 

3760 A(1,D)=A(5,D+1) 4330 AC(K,L)=128 

3770 RETURN 4340 A(K,L+8)=120 

3780 REM MVT- 4350 AC(K,L+4)=112 

3790 AC0,D)=A(3,D+2) 4360 A(K,L+12)=104 

3800 A(0,D+1)=A(4,D+2) 4370 NEXT L 

3810 A(0,D+2)=A(5,D+2) 4380 NEXT K 

3820 A(1,D+2)=A(5,D+1) 4390 RETURN 

3830 A(2,D+2)=A(5,D) 4400 REM ROSSO 

3840 A(2,D+1)=A(4,D) 4410 CALL HCHAR(2,13,136) 
3950 A(2,D)=A(3,D) 4420 CALL HCHAR(3,13,144) 
3860 A(1,D)=A(3,D+1) 4430 CALL HCHAR(4,13,96) 
3870 RETURN 4440 RETURN 

3880 REM C=A-H 4450 REM CONTROLLO 

3890 GOSUB 2110 4460 G=A(0,V) 

3900 GOSUB 2010 4470 FOR K=0 TO 2 

3910 FOR K=0 TO 2 4480 FOR L=V TO V+2 

3920 A(K,16)=A(3+K,9) 4490 IF ACK,L)<>G THEN 3430 
3930 A(K,9)=A(3+K,19) 4500 NEXT L 

3940 A(K,19)=A(5-K,1) 4510 NEXT K 

3950 A({K,1)=A(5-K,16) 4520 RETURN 

3960 NEXT K 


3970 RETURN 

3980 REM C=A-B 
3990 GOSUB 2210 
4000 GOSUB 1910 . 
4010 FOR K=0 TO 2 


4530 CALL CLEAR 

4540 PRINT TAB(6);"H"::TAB(2);"P G A D'::TAB(6);"B"::::ssrrrosrroos;cte 
4550 GOSUB 4400 

4560 GOSUB 3500 

4570 GOSUB 3620 

4580 RETURN 


100 REM FTT722222222%2713 


110 REM +» * 
120 REMO » COOKIE! * 
150 REM è» * 
140 REM # TI-99/4A * 
150 REM _* * 
150 REM « *by Rosa Carlo* 
170 REM _* * 
180 REM * 13000 BYTES * 
190 REM * * 


200 REM CITTA ZIETE 5551 
210 REM DEFINIZIONE CARATTERI E COLORI 

220 CALL CLEAR 

250 FOR CC=1 T0 8 

240 CALL COLOR(CC,11,1) 

250 NEXT CC 

260 CALL SCREEN(5) 

270 RANDOMIZE 

280 CALL CHAR(95, "3C4299A1A199423C") 

290 CALL CHAR(97, "O035FFFFF3F1F3F6F") 

300 CALL CHAR(98, "OOCOFEFEC") 

310 FOR I=104 TO 115 

320 READ A$ 

3350 CALL CHAR(I,A$) 

340 NEXT I 

350 DATA FFFFFFFFFFFFFFFF,FFFAFAFDFDFDFDFF,FFE7C38181C3E7FF,FF7A7A7D7D7D7DFF ,FFB 
EBEBEBESESEFF ,FF7F7F7F7F7F7FFF,FFFEFEFEFEFEFEFF 
360 DATA FFBFBFBFBFSFSFFF,000000C3FF7E,070876FFFFFF7E5C, 94A445555632160C, 0405023 
D7FFCE474 

370 CALL CHAR(48, "00358444C546444358") 

380 CALL CHAR(144, "7E81818199E781E7") 

390 CALL CHAR(145, "FFFFFFFFFFFFFF7E") 

400 FOR I=128 TO 1356 

410 READ A$ 

420 CALL CHAR(I,hA$) 

450 NEXT I 

440 DATA D67C7C447C7C286C, 00308DB1067,F1FR7B7F7F7C7C7F,7F7E7F7F7F1B1B1F,E0E0COCO 
COCOC, DCOFDFFCFC00008 

450 DATA 3E0056D610C55D22, 00, 00000000FFFFFFFF 
460 CALL CHAR(152, "FF7E7E1818181818") 730 K=69 
470 CALL CHAR(1535, "FFFFC7DFCFDF5F7E") 740 NNC=0 
480 CALL CHAR(154,"7E7AFBESFBC3FFFF") 750 PS=0 
490 CALL CHAR(140, "00000066669999") 750 VITA=3 


500 CALL COLOR(10,9,16) 770 MEMI=0 
510 CALL COLOR(11,3,1) 780 MEM2=0 

520 CALL COLOR(13,16,1) 790 MEM3= 

530 CALL COLOR(15,15,1) 800 EMIT=0 

3540 CALL COLOR(16,10,1) 810 REM NUOVO LIVELLO 

550 CALL CLEAR 820 VITA=VITA+1 

560 IF SUONO=0 THEN 570 ELSE 600 830 LEV=LEV+1 

570 GOSUB 3880 840 INGR=0 

580 SUONO=1 850 IF LEV=1 THEN 860 ELSE 880 
590 GOTO dio 860 TIMED=40 

600 GOSUB 3980 970 GOTO 970 

610 CALL COLOR(9,15,1) 880 IF (LEV=2)+(LEV=3)THEN 890 ELSE 920 
620 REM INIZIALIZZAZIONE VARIABILI —g90 VEL=2 

630 IF SCO<=HISCO THEN 660 900 TIMED=30 

640 HISCO=SCO 910 GOTO 970 

650 GOTO 690 920 IF LEV=4 THEN 930 ELSE 960 
660 IF OSCIH=0 THEN 670 ELSE 690 930 VEL=1 

670 HISCO=450 940 TIMED=25 

680 OSCIH=1 950 GOTO 970 

690 SCO0=0 960 TIMED=20 

700 LEV=0 970 TIME=TIMED 

710 TIME=0 980 REM DISEGNO QUADRO 


720 SUONO=1 990 CALL CLEAR 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
12350 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1520 
13350 
1540 
1350 
1360 
1570 
13580 
1390 
1400 
1410 
1420 
1450 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1500 
1610 
1620 
1650 
1640 
1650 
1660 


PRINT "hhhhhhhhhhhhhhhhhhhhhhhhhhhh® 
PRINT "hhh phhh qhhhh r hhh s hhh" 
PRINT "hhhh hhhhh hhhhhh hhhhh hhhh”" 
PRINT "hab h" 
FOR I=l TO 2 

PRINT "hnjljoh njljo hnjljo hnjl joh" 
PRINT "hijkjmh ijkjm hijkjm hijkjmh" 
PRINT "hab h" 
PRINT "hnjo njljo njljoh njljo njoh" 
PRINT "hijm ijkjm ijkjmh ijkjm ijmh" 
PRINT "hab h" 
NEXT I 

PRINT "hhhhhhhhhhhhh  hhhhhhhhhhhhh" 
PRINT "hhhhhhhhhhhhhhhhhhhhhhhhhhhh" 
PRINT "" 

REM SCRITTURA COMMENTI 

M$="HIGH : " 

S$="SCORE : " 

D$="LEVEL : " 

E$="TIME :" 

F$="COOKIES " 

FOR PR=1 TO LEN(M$) 

CALL HCHAR{1,PR+2,ASC(SEG$(M$,PR,1))) 


CALL SOUND(-100, 2000, 0) 

CALL HCHAR(3,PR+2,ASC(SEG$(S$,PR,1))) 
CALL SOUND (-100,1000,0) 

CALL 
CALL SOUND(-100,500,0) 


CALL HCHARC(3,PR+18,ASC(SEG$(E$,PR,1))) 


CALL SOUND(-100, 250,0) 


CALL HCHAR(24,PR+2,ASC(SE6G$(F$,PR,1))) 


CALL SOUND(-100, 125,0) 
NEXT PR 

CALL HCHAR(24, 11,58) 
REM STAMPA PUNTEGGI 
GOSUB 2700 

CALL HCHAR(1,15,48,2) 
GOSUB 2750 

CALL HCHAR(3,15,48,2) 
CALL HCHAR(3,27,48,2) 
GOSUB 2800 

GOSUB 2850 

GOSUB 1710 

GOSUB 2520 

REM GIOCO 

FOR SP=5 TO 20 


HCHAR(1,PR+18,ASC(SEG$(D$,PR,1))) 


1670 
16580 
1590 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 


1900 
1910 


1920 


GOSUB 2520 
GOTO 1780 

CALL SOUND(1000, 110,0) 
VITA=VITA-1 

CALL HCHAR(24,13,32,19) 

IF VITA=0 THEN 3760 

FOR I=2 TO (VITA-1)*2 STEP 2 
CALL HCHAR(24,1+11,128) 

NEXT I 

RETURN 

CALL HCHAR(SP,6,32,Y-5) 

CALL KEY(0,KY,S) 

IF S=0 THEN 1820 

IF POSC"ESDX",CHR$(KY),1)=0 THEN 1820 
K=KY 

CALL HCHAR(X,Y,32) 

IF K<>69 THEN 1850 

x=X-1 

IF K<>68 THEN 1870 

v=V+1 

IF K<>88 THEN 1890 

X=X+1 

IF K<>83 THEN 1910 

Y=Y-1 

CALL SOUND (200,660+(X#Y),1) 
CALL GCHAR(X,Y,PS) 


IF (SP=8)+(SP=11)+(SP=14)+(SP=17)+(SP=20)THEN 1470 ELSE 1780 


TIME=TIME-1 
GOSUB 2800 

IF TIME=0 THEN 1500 ELSE 1530 
GOSUB 1690 

TIME=TIMED 

GOSUB 2800 

IF LEV=1 THEN 1780 

TNI=INT (RND*VEL) +1 

ON TNI GOTO 1560, 1780 

CALL HCHAR(SP,6,129,Y-5) 

CALL SOUND(200,-5,0) 

IF SP=X THEN 1590 ELSE 1770 

FOR I=1 T0 4 

CALL SOUND(200#*I,550-(110+1),4-I) 
NEXT I 

IF COLOR=12 THEN 1630 ELSE 1640 
CALL HCHAR (MX, MY, MPS) 

CALL HCHAR(SP, 6,32, Y-5) 

CALL HCHAR(X,Y,32) 

GOSUB 1700 


1930 


IF (ps=105)+(PS=106)+(PS=107)+(PS=109)+(PS=110)+(PS=111)+(PS=108)+(PS=104)+ 


(PS=98) THEN 1940 ELSE 2050 


1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 


FOR I=1 TO 10 
CALL SOUND (-50,220,1) 

CALL HCHAR(X,Y,128) 

CALL SOUND(-50,110,0) 

CALL HCHAR(X,Y,PS) 

NEXT I 

CALL SOUND (500,110,1) 

IF COLOR=12 THEN 2020 ELSE 2030 

CALL HCHAR (MX, MY,MPS) 

GOSUB 1700 

GOSUB 2520 

IF (PS=112)+(PS=113)+(PS=114)+(PS=115)THEN 2060 ELSE 2300 
IF COLOR=12 THEN 2290 

SCO=SC0+5 

GOSUB 2750 

COLOR=12 

RESTORE 2220 

READ N.T 

NNC=NNC+1 

IF N=999 THEN 2240 

CALL SOUND<T,N,1) 

FOR A=1 TO T/3-30 

NEXT A 

IF NNC/2-INT(NNC/2)=0 THEN 2200 

CALL HCHAR(X,Y,128) 

GOTO 2110 

CALL HCHAR(X,Y,PS) 

GOTO 2110 

DATA 523,200,523, 200,523,400,698, 200,698, 200, 698,400,880, 200, 698, 200, 523, 20 


0,523, 200, 698, 200, 698, 200, 698 


2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
23520 
23530 
2340 
23550 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 


DATA 400,999, 999 2560 COLOR=16 


MPS=P 
tia S 2570 CALL COLOR(13,COLOR, 1) 
Mel 2580 CALL HCHAR(X,Y,128) 


2590 CALL HCHAR(X,Y+1,32) 
2600 FOR I=51 TO 48 STEP -1 
2610 CALL HCHAR(6,16,1) 


CALL COLOR(13,COLOR,1) 
GOTO 2300 


X=X+2 

CALL HCHAR(X,Y,128) 2620 FOR J=57 TO 48 STEP -1 
IF (COLOR=12)#(X=21)THEN 23720 ELSE 2500 2630 CALL HCHAR(6,17,J) 
SCO=SC0+10 2640 CALL SOUND (-50,1000+(1#J),0) 
GOSUB 2750 2650 NEXT J 

INGR=INGR+1 2660 NEXT I 

FOR I=2 TO INGR*2 STEP 2 2670 CALL HCHAR(6, 16,104, 2) 
IF I=INGR*2 THEN 2370 ELSE 2380 2680 RETURN 

CALL HCHAR(22,1+19,MPS) 2590 REM AGGIORNAMENTI PUNTEGGI 
NEXT I i i 2700 REM HI-SCORE 
COLOR=16 2710 RPUN=1 

CALL COLOR(13,COLOR,1) DIZO CPUNSI1 

IF INGR=4 THEN 3040 a750 PTSeg 

IF TIME>10 THEN 2430 ELSE 2450 2740 GOTO 2900 

TIME=TIMED 2750 REM SCORE 

GOTO 2460 2760 RPUN=3 

TIME=TIME+TIMED 2770 CPUN=11 

GOSUB 2800 2780 P=SC0 

CALL SOUND(1000,700,0) 2790 GOTO 2900 

CALL SOUND (2000, 800,0) 2800 REM TIME 

GOSUB 2520 2810 RPUN=3 

NEXT SP 2820 CPUN=27 

GOTO 1450 2830 P=TIME 

REM RIPOSIZIONE OMINO 2840 GOTO 2920 

X=21 2850 REM LEVEL 

Y=16 2860 RPUN=1 


IF OMINO=1 THEN 2600 2870 CPUN=27 


P=LEV 


CALL HCHAR(HVEL,9,136,21) 
CALL HCHAR(HVEL+1,5,130) 
CALL HCHAR(HVEL+2,5,131) 
CALL HCHAR(HVEL+1,6,132) 
CALL HCHAR(HVEL+2,6,133) 
GOSUB 2520 

CALL HCHAR(21,16,32) 


3710 
3720 
3730 
3740 
3750 
3760 


GOSUB 2750 

GOSUB 2990 

OMINO=0 

GOTO 810 

REM FINE DEL GIOCO 


FOR I=400 TO 120 STEP -20 


REM DETERMINAZIONE POSIZIONE DELLA PENTOLA 


POSI=INT(RND#*18)+10 
IF POSI=ISOP THEN 3200 

SPARO=0 

ISOP=POSI 

CALL HCHAR(20,POSI,144) 

CALL HCHAR(21,POSI, 145) 
FARI=FARI+1 

P=FARI 

RPUN=6 

CPUN=14 

GOSUB 2920 

FOR I=9 TO 28 

CALL HCHAR(HVEL+1,I,152) 

CALL HCHAR(HVEL+2,I,153) 

CALL SOUND(50,220+(1#*50),0) 

IF SPARO=1 THEN 3570 

CALL KEY(0,k,S) 

IF S=0 THEN 3570 

IF K=32 THEN 3400 ELSE 3570 
CALL HCHAR(HVEL+2,7,129,1-7) 
CALL SOUND(300,-5,1) 

CALL HCHAR(HVEL+2,7,32,1-7) 
CALL HCHAR(HVEL+2,1,154) 

IF I=POSI THEN 3450 ELSE 3520 
CALL VCHAR(HVEL+3,1,134,17-HVEL) 
CALL SOUND(1500,-2,0) 

GOSUB 2950 

CALL VCHAR(HVEL+3,1,32,17-HVEL) 
COLP=COLP+1 

CALL VCHAR(HVEL+1,I1,32,2) 

GOTO 3590 

CALL VCHAR(HVEL+3,I,134,19-HVEL) 


3770 CALL SOUND(200,1,2) 
3780 NEXT I 


3790 Ms=" 


GAME 


3800 FOR I=1 TO LEN(M$) 
3810 CALL HCHAR(13,1+5,32) 


3820 


3830 CALL HCHAR(15,1+5,32) 


3840 


3850 NEXT I 
3860 GOSUB 2990 
3870 GOTO 550 


3880 REM 


PRESENTAZIONE 


3890 CALL CHAR(IO01,"FF") 
3900 CALL CHAR(102,"7F") 
3910 CALL COLOR(9,10,5) 
3920 RESTORE 3970 

39350 FOR Isl T0 5 

3940 READ DUR, NOTE 

3950 CALL SOUND (DUR,NOTE,0) 
3960 NEXT I 


OVER 


CALL SOUND (50, 1000+(I#100),8) 


REM SUBROUTINE PRINT AT 

CALL HCHAR (RPUN, CPUN, 48+INT(P/1000) ) 

CALL HCHAR(RPUN, CPUN+1,48+INT((P-INT(P/1000)#*1000)/100)) 

CALL HCHAR (RPUN, CPUN+2,48+INT((P-INT(P/100)*100)/10)) 

CALL HCHAR(RPUN, CPUN+3,48+INT(P-INT(P/10)#*10)) 

RETURN 

REM TEMPO DI ATTESA 3530 CALL SOUND (1000,-3,0) 

FOR GH=i TO 300 3540 SPARO=1 

NEXT GH 3550 GOSUB 2950 

RETURN 3560 CALL VCHAR(HVEL+3,1,32,19-HVEL) 
REM TEMPO DI ATTESA 2 3570 CALL VCHAR(HVEL+1,1,32,2) 

FOR GH=1 TO 1000 3580 NEXT I 

NEXT GH 3590 IF FARI=10 THEN 3620 

RETURN 3600 CALL VCHAR(20,POSI,32,2 

. REM SECONDA PARTE 3610 GOTO 3200 

CALL HCHAR(6,1,32,544) 3620 SC0=SC0+(COLP*LEV) 

CALL VCHAR(6,3,104,16) 3630 GOSUB 2750 

CALL VCHAR(6,30,104,16) 3640 IF COLP=10 THEN 3650 ELSE 3720 
CALL HCHAR(22,3,104,28) 3650 0$=" BONUS 1000 
OMINO=1 3660 FOR @=1 TO LEN(0$) 

FORI=0 3670 CALL HCHAR(14,0+3,ASC(SEG$(0$,0,1))) 
COLP=0 3680 CALL SOUND(100,1000,0) 

IF LEV>=9 THEN 3130 3690 NEXT Q 

HVEL=15-LEV 3700 SCO=SC0+10 


CALL HCHAR(14,1+5,ASC(SEG$(M$,I,1))) 


3970 DATA 330,880, 3350, 988, 330, 784, 330, 392, 990,587 


3980 PRINT " eee eee ee eeeee eeeee ee ee ee eee ee 


eefe eefe eeeeee eefeeeefe eefe eefefeeee" 


3990 PRINT "ee ee eefe eefe eeefefe ee ee eefe eefeeee eefe ee eefe eefe 


eefeee eefeee ee eefe eefe eefeee eefeee" 


4000 PRINT "eeeeefe eefeeeefeeee eefe eee ee ee eee ee eeefefe eeeee 


ee ee eeeee eee ee ee eeee":: 
4010 IF SUONO=0 THEN 4020 ELSE 4160 
4020 SUONO=1 
40350 FOR W=1i TO 2 
4040 FOR I=2 TO 16 STEP 2 
4050 CALL CHAR(102,SEG$("7F7F7F7F7F7F7F7F",1,1)) 
4060 CALL CHAR(101,SEG$("FFFFFFFFFFFFFFFF",1,1)) 
4070 CALL SOUND(100,-1,1/2) 
4080 NEXT I 
4090 IF W=2 THEN 4160 
4100 FOR I=16 TO 2 STEP -2 
4110 CALL CHAR(102,SEG$("7F7F7F7F7F7F7F7F",1,1I)) 
4120 CALL CHARC101,SE6$("FFFFFFFFFFFFFFFF",1,1I)) 
4130 CALL SOUND(100,-3,1/2) 


4140 NEXT I 

4150 NEXT W Dionloaded from sie tiSSiuc.it 

4150 PRINT "_ COPYRIGHT 84 RC SOFTWARE" 1 "AIR RI III III" nni 
4170 PRINT "PREMI : >I PER LE ISTRUZIONI"::" >G PER GIOCARE "::" 


?F_ PER FINIRE" 

4180 CALL KEY(0,K,S) 

4190 IF S=0 THEN 4180 
4200 CALL SOUND (200, 750,0) 
4210 IF K=71 THEN 4260 
4220 IF K=73 THEN 4280 
4230 IF K=70 THEN 4490 
4240 CALL SOUND (200, 110,0) 
4250 GOTO 4180 

4260 RETURN 

4270 REM ISTRUZIONI 

4280 CALL CLEAR 


4290 PRINT "VI SPETTA IL COMPITO DI GUI-":: "DARE UN CUOCO ATTRAVERSO UN"::"LABIR 


INTO CERCANDO DI EVITA-":: 


43500 PRINT "RE DI ESSERE COLPITI DA CAN-"::"NONATE DI FARINA CHE COMUN-":: "QUE S 


ONO ASSENTI NEL PRIMO":: "QUADRO. " 


43109 PRINT :"IL CAMMINO DEL CUOCO NON PUO"::"ESSERE FERMATO BENSI” DIRE- "::"ZI0 


NATO CON I TASTI : » 

4320 PRINT :"E/S/D/X":: "PREMI UN TASTO" 
43530 GOSUB 44350 

43540 FOR I=i TO 24 

4350 CALL SOUND (50, 300,3) 

4360 PRINT 

4370 NEXT I 


4380 PRINT "RACCOLTI TUTTI I QUATTRO IN-"::"GREDIENTI SI PASSA AD UN NUO"::"VO @ 


UADRO DOVE DOVETE COLPI-" 


43590 PRINT :"RE CON LO SPAZIATORE UN CES-"::"TELLO IN MODO CHE LA FARINA "::"IN 


ESSO CONTENUTA CADA NEL ":: 
4400 PRINT "CONTENITORE POSTO IN BASSO"::::::::"PREMI UN TASTO" 
4410 GOSUB 4430 


4420 GOTO 550 4500 PRINT "ARRIVEDERCI...!" 

4430 CALL KEY(0,Kk,5) 4510 PRINT 11111srrsti 

4440 IF_S=0 THEN 4430 4520 FOR S=0 TO 30 STEP 2 

4450 FOR A=0 TD 30 STEP 5 4530 CALL SOUND(-50,230-(4#5),30-S,2300-(40#5),5) 
4460 CALL SOUND(-99,698,A,1924,A) 4540 NEXT S 

4470 NEXT A 4550 FOR S=0 TO 30 STEP 5 

4480 RETURN 4560 CALL SOUND (200, 110,5) 

4490 CALL CLEAR 4570 NEXT S 


4580 END 


RIVISTE ARRETRATE DISPONIBILI 
BASTA INVIARE IN VAGLIA O ASSEGNO LE CORRISPETTIVE 10.000 LIRE 


CONTENUTO N.535 


PICCOLI TRUCCHI NEI PROGRAMMI... 
RIORDINAMENTO ALFABETICO... 
TERMITI 


SCHERZI DI DATA 
GESTIONE MAGAZZINO...... 


SOUBROUTINE CON SFONDO... 

CALCOLO MEMORIA NELLA GEST. DATI 

SAFARI SUL FIUME l «is 

DISPLAY AT VELOCE........000000% 

L'ANGOLO DELLO STUDENTE........ 

PROGRAMMIAMO CON IL JOYSTICK.... 
E COME PER MAGIA 

TRASFORMAZIONI ANGOLARI... 

SOUBROUTINE "TRAIL" 

SOUBROUTINE *PLOT” 

CALL CIRCLE 

METEOR.. 

TOTOCALCIO. 

SCRIVIAMO IN CORSIVO 


CONTENUTO N.5 


CONTENUTO N.4 


LABORATORIO FISICA/ACCELERAZIONE 
SIMULAZIONE DI VOLO 

ORGANO SUL TI-99/4A 

ANIMAZIONE DELLA GRAFICA....... 
JUNGLE JIM VERS. ITALIANA 

IL TUBOLARIO LE FRASI DEL TUBO.. 
BATTLE STAR BELLISSIMI SPRITES.. 
BEETHOVEN INNO ALLA GIOIA 
MUSICA DALLA TASTIERA DEL TI.... 
DIMENSIONI RETTANGOLARI (GRAFICA) 
MOSAICO ANIMATO 

FROGRAMMA AREE (by randone) 
FREQUENZE DI UNA LETTERA... 

MINI TEXT EDITOR.. 


SCRIVIAMO IN MINUSCOLO COL TI... 
LE CAPITALI DEL MONDO 

RANDOM MUSIC CONCERTI CASUALI.. 

TRAVERSATA MOVIMENTATA......... 

PROGRAMMA DEI FILES... 


BASE ALFA IN BELLISSIMA GRAFICA 
LO ZIO LARRY . 

FLACK ATTACK (BATTAGLIA AEREA).. 
TRUCCHI SULLA MACCHINA. ......... 





CONTENUTO N.é6 


OLIMPIADI 1984 


CORSA 100 METRI 


OMAGGIO A MOZART.......00002001 CORSA 200 METRI 
WORD PROCESSOR IN ITALIANO...... 400 METRI 
PROGRAMMA CHAR MULTIHOME........ 
VOLO DEL CALABRONE........ sedere 


PROBABILITA" (IN GRAFICA)...... 
STATISTICA PLURIPROGRAMMA....... 
IDONEITA" ALLO SPORT............ 
MENAGER GIOCO DI FINANZA....... 
CAVE ADVENTURE. .........000000% . 
TEST UDIBILITA" UMANA....... cdl 


COSTRUZIONE DI UN GIOCO 
UTILITY (6 PROGRAMMI IN 1) 


SDESY (GRAFICA).......000000000- GEOMETRIA ANALITICA (PARABOLE).. 
MISTERY SPEEL ‘FAVOLOSO)........ CANNIBALI 

IL TI CARDIOLOGO.......22000000% TOPOGRAFIA (CALCOLI VERTICI).... 
FORZA ITALIA......00020 00000000 I POKE IN BASIC (by randone).... 
AIR FLYGHT (AEREI)......0.000.< . SPRITER COLOR GRAPHIC 

IPPICA... 00.00 sonsonse aisi ereniara TABLUT GIOCO DI GRAFICA 


CALCOLO MATRICIALE 

GRAFICA (87 carat. 4 pag. video) 
SEGRETERIA TELEFONICA.. 
OPERAZIONI MATEMATICHE SUL TI.. 
SIMULAZIONE DEL LOTTO 
INTEGRAZIONE DI CONVULUZIONE.... 








FRANCOMPUTER 


3.500 SOCI, AMICI, CLIENTI. 
9.000 PROGRAMMI 
18 PUBBLICAZIONI 





FRANCOMPUTER 


‘ S.N.C. CORSO FOGAZZARO, 174-139 - VICENZA 


_ SHOW ROOM 


ESPOSIZIONE - LABORATORIO «0%. 

20 COMPUTER IN FUNZIONE PER VOI. 
IBM SHARP APPLE CORMNGDOKE SERA 

TEXAS OLIVETTI KI10 AMSTRAD LASER 
Diventate soci del Club (nessuna spe- 
sa) e provate il computer che volete 
prima di acquistarlo. Assistenza conti- 
« nua, una biblioteca per documentarvi, 


‘: 3000 corrispondenti per scambi di espe- 
rienze, programmi e amicizie a tutto bit 
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